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1.  INTRODUCTION  AND  HISTORICAL  BACKGROUND 

The  Mnary  Data  Acquisition  and  Control  ^stem  (BDACS)  is  a 
computer-controlled  general-purpose  instrumentation  system  that 
retrieves  and  stores  binary  logic  signals  generated  by  a system 
undergoing  some  form  of  testing.  Simultaneously,  BDACS  can  transmit 
binary  logic  control  signals  to  the  test  system  in  order  to  initiate  a 
specific  logic  state  of  the  system  or  to  control  the  sequence  of 
operations  through  several  logic  states. 

BDACS  [originally  called  the  Communications  Monitor  and  Control 
System  (CMCS)]  was  developed  under  the  Program  for  Electromagnetic  Pulse 
Testing  (PREMPT) , jointly  sponsored  by  the  Defense  Nuclear  Agency  (DNA) 
and  the  Defense  Communications  Agency  (DCA) . The  primary  objectives  of 
PREMPT  are : 

(a)  to  evaluate  the  vulnerability/survivability  of  the  WWMCCS/DCS 
Command,  Control,  and  Communications  systems  (C^)  subjected  to  a 
high-altitude  electromagnetic  pulse  (HEMP)  environment  by  using  a 
methodology  that  includes  both  testing  and  analysis; 

(b)  to  provide  hardening  recommendations/fixes  that  insure  an 
acceptable  level  of  performance  of  the  WWMCCS/DCS  in  a HEMP  environment; 

(c)  to  develop  the  analytical  tools  required  to  einalyze  the 
WWMCCS/DCS  and  other  critical  c'  systems . 

The  initial  phases  of  PREMPT  included  large-scale  test  programs  to 
be  performed  on  three  telephone  switch  centers  that  form  a part  of  the 
continental  U.S.  Automatic  Voice  Network  (CONUS-AUTOVON) . As  part  of 
the  data  requirements  for  these  test  programs,  the  logic  states  of  the 
switch  centers  had  to  be  monitored  and  controlled.  The  development  of 
BDACS  is  a result  of  these  requirements. 

A block  diagreim  of  the  BDACS  hardware  is  shown  in  figure  1 (a  to  c)  . 
The  hardware  is  centered  around  a Data  General  Corporation  (DGC)  Nova- 
1230  minicomputer  processor  and  peripheral  system.  The  computer 
includes  a 16K  core  memory,  Teletype  (TTY)  control  unit,  card-reader 
input  unit,  line-printer  output  unit  (to  allow  real-time  hard-copy 
output  of  BDACS  results) , a 9-track  magnetic-tape  drive  (to  allow 
archive  storage  of  BDACS  results) , and  a disk-cartridge  drive  to  store 
both  the  background  operating  software  system  (supplied  by  DGC)  and  the 
foreground  BDACS  control  software  system  that  was  developed  concurrently 
with  the  hardware.  The  special-purpose  interface  board  supplied  by  the 
original  equipment  manufacturer  (OEM)  provides  the  hardware  link  between 
the  computer  section  and  the  binary  signal  interface/multiplexer  and 
special-purpose  control  boards  of  BDACS.  These  special-purpose  control 
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( 


BLOCK  DIAGRAM  OF  BDACS 


FROM 

OUTPUT  MUX 
CONTROLLER 


TO  ENVIRONMENT 
SIMULATOR 


SYSTEM  CONTROL 
LINES 


Figure  1(c).  Output  multiplexer  unit. 


boards  include  (1)  a state  correlator  which  generates  a time-delayed 
trigger  signal  when  the  system  under  test  enters  a prescribed  logic 
state  (as  defined  by  the  parallel  coincidence  of  up  to  eight  logic 
signals)  (2)  a high-speed  buffer  (MSB)  that  allows  very  fast  monitoring 
of  sixteen  binary  signals  at  sample  rates  of  two  per  microsecond,  (3)  a 
low-speed  buffer  (LSB)  that  allows  a slow  monitor  and  serial  transfer  of 
slowly  changing  logic  signals,  and  (4)  audible  tone  diallers  and 
dial-tone  detectors  that  are  specific  interface  modules  for  the 
particular  telephone  switch  centers  which  were  tested  under  PREMPT.  The 
present  capabilities  of  BDACS  are  summarized  in  table  I. 

The  heart  of  the  BDACS  consists  of  a software  control  program  and 
several  ancillary  programs  that  provide  the  communications  lin)cs  laetween 
the  BDACS  operator  and  the  system  hardware.  The  remainder  of  this 
report  describes  the  architecture  and  functions  of  several  modules  that 
comprise  the  BDACS  software. 

The  initial  BDACS  software  package  was  prepared  by  the  OEM  during 
the  initial  system  development  and  was  used  during  BDACS  operations  at 
Polk  City,  FL.  During  the  BDACS  refurbishing  period  in  preparation  of 
operations  at  Delta,  UT,  some  minor  modifications  and  improvements  to 
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TABLE  I.  PRESENT  BDACS  CAPABILITIES 


Feature 

Binary  signal  monitor 
(input  mux) 

Binary  signal  control 
(output  MUX) 

System  state  correlator 
Trigger  delay  counter 
High-speed  buffer 
Low-speed  buffer 
SampI i ng  resolution 


Capabi 1 i t ies 


128  signals  monitored 


GU  signals  controlled 
8 signals  correlated 
0 to  55  us,  simulated 
2K  (16  bits)  words  monitored  (0.5  us) 

128  signals  monitored  serially  (50  ys) 

50  us--input  high-speed  MUX  words  (16  bits) 
350  ys--input  low-speed  MUX  words  (112  bits) 
1000  ys--output  MUX  words  (6^  bits) 


the  initial  software  package  were  provided  by  personnel  of  Harry  Diamond 
Laboratories  (HDL) . In  particular,  an  option  was  incorporated  to 
provide  the  immediate  on-line  data  printout  using  the  TTY  control  unit 
in  lieu  of  the  line  printer. 

During  these  earlier  portions  of  BDACS  operations,  the  basic 
"background"  software  operating  system  was  the  Real  Time  Disk  Operating 
System  RDOS-REV  1.00  supplied  by  DGC.  Following  the  Delta  test  program, 
an  updated  and  improved  operating  system,  RDOS-REV  3.01,  was  obtained 
from  DGC  and  placed  on  BDACS.  However,  because  the  core  resident 
portion  of  RDOS-REV  3.01  is  substantially  larger  than  that  of 
RDOS-REV  1.00,  the  16K  core  capacity  of  BDACS  was  insufficient  to  hold 
both  RDOS-REV  3.01  and  the  BDACS  control  program  concurrently.  In  fact, 
even  with  the  earlier  RDOS-REV  1.00,  the  concurrent  loading  of  this 
operating  system  with  the  BDACS  control  program  filled  all  but 
approximately  20  words  of  BDACS  core.  Consequently,  there  was  no  room 
for  any  substantial  software  additions  or  improvements  to  the  BDACS 
control  program  as  required  for  additional  monitoring  capability, 
without  drastically  reorganizing  the  control  program. 

Furthermore,  the  initial  BDACS  software  package  was  not  able  to  meet 
the  design  objective  of  a 50-ys  minimum  sample  cycle  time  and  was  very 
inefficient  both  in  operating  time  and  in  data  storage  requirements 
during  the  data  reduction  phase  of  the  program. 
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For  these  reasons,  a complete  redesign  of  the  control  program 
package  was  initiated.  The  package  described  in  the  following  sections 
has  been  in^lemented  as  the  current  BDACS  control  program.  'Kie  control 
program  is  written  in  the  DGC-supplied  RDOS  Assembly  language  and 
interfaces  with  the  RDOS-REV  3.01  operating  system. 


2.  BDACS  CONTROL  PROGRAM— GENERAL  ARCHITECTURE 

The  BDACS  control  program  has  been  specifically  designed  in  a 
"structured  progreun"  modular  format  that  allows  for  future  expansion  or 
modification  without  complicated  interactions  or  interdependencies  among 
the  different  modules.  In  particular,  the  overall  operation  of  the 
control  program  has  been  separated  into  major  sequential  tasks,  with 
each  task  programmed  as  a separate  overlay  module  of  the  control-program 
save  file.  Information  exchange  among  the  different  overlay  modules  has 
been  kept  to  a minimum  and  is  in  one  of  the  following  forms: 

(a)  ZREL  parameters  (a  very  limited  number) 

(b)  NREL  tables  in  the  root  binary 

(c)  data  files  organized  under  the  RDOS  operating  systems 

Moreover,  those  system  par2mieters  defined  within  each  overlay  module 
which  may  be  subject  to  change  with  system  augmentation  or  expansion 
have  been  collected  into  a separate  system  parameter  file,  BDACS. SR, 
organized  under  RDOS.  As  described  below,  this  file  should  be  assembled 
with  each  program  segment  when  the  user  constructs  the  control-program 
save  file. 

The  BDACS  control  program  is  composed  of  a root  binary  section  and 
six  overlay  modules  which  are  common  to  a single  overlay  region.  The 
major  tasks  associated  with  the  root  binary  and  each  overlay  module  are 
summarized  below  amd  are  described  in  detail  in  the  subsequent  sections. 

Module  Name  Task 

Root  binary  MONTR.SR  holds  ZREL  parameters 

holds  NREL  tables 
provides  overlay  control 

Overlay  No.  1 PHASl.SR  Initializes  and  opens  RDOS  files 

reads  and  constructs  METHOD  file 
data  acquisition  amd  reduction  tables 
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Module 


Name 


Task 


reads  and  constructs  METHCX)  file 
data  control  tables 

reads  and  stores  PREAMBLE  query  file 
stores  the  METHOD  and  ASSIGN  files 


Overlay  No.  2 

PHAS2.SR 

controls  real-time  data  acquisition 
and  control  sequencing 

Overlay  No.  3 

PHAS3.SR 

retrieves  and  stores  HSB  data 

Overlay  No.  4 

PHAS4.SR 

reduces  emd  stores  the  MUX  emd  LSB 
data 

Overlay  No.  5 

PHAS5.SR 

reads  and  stores  POSTSCRIPT  query 
file 

Overlay  No.  6 

ERMSG.SR 

produces  the  on-line  data  printout 

generates  error  messages 

provides  normal  or  abnormal  return  to 
the  RDOS-CLI 


To  produce  the  working  load  module  (that  is,  the  .SV  save  file  emd 
the  .OL  overlay  file)  of  the  control  progreun,  the  user  should  first 
assemble  the  root  binary  emd  each  overlay  module  using  the  RDOS-supplied 
assembler  to  produce  the  associated  relocatable  binary  (.RB)  file.  The 
RDOS-CLI  command  strings  for  these  assemblies  eure 

(a)  Root  binary 

ASM  BDACS  MONTR  MONTR.RB/B 

(b)  Overlay  No.  1 

ASM  BDACS  PHASl  PHASl.RB/B 

(c)  Overlay  No.  2 

ASM  BDACS  PHAS2  PHAS2.RB/B 

(d)  Overlay  No.  3 


ASM  BDACS  PHAS3  PHAS3.RB/B 
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(e)  Overlay  No,  4 

ASM  BDACS  PHAS4  PHAS4.RB/B 

(f)  Overlay  No.  5 

ASM  BDACS  PHAS5  PHAS5.RB/B 

(g)  Overlay  No.  6 

ASM  BDACS  ERMSG  ERMSG.RB/B 

Following  assembly,  the  relocatable  binary  files  are  combined,  and 
relocatable  externals  are  resolved  to  produce  the  final  save  and  overlay 
files.  The  RDOS-CLI  command  string  for  this  loading  operation  is 

RLDR  MONTR  [PHAS1,PHAS2 ,PHAS3, PHAS4 , PHAS5 , ERMSG] 10/  C . 

The  final  result  is  the  generation  of  a save  file  naimed  MONTR,  SV  iind  an 
associated  overlay  file  named  MONTR. OL, 


3.  BDACS  DATA  FILES  AND  TEMPORARY  FILES 

The  BDACS  control  program  uses  the  RDOS  file  management  routines  to 
create  and  maintain  a number  of  different  data  files  and  temporary  files 
used  during  BDACS  operations.  A general  description  of  the  content  and 
format  of  these  files  follows. 

PREAMBLE. DA — An  RDOS  sequentially  organized,  permanent,  and  write- 
protected  file  containing  alphanumeric  text  information  generated  and 
maintained  by  the  DGC-supplied  text  editor  (EDIT.SV)  under  the  control 
of  the  BDACS  operator.  The  file  contains  a series  of  alphanumeric 
"query"  or  "statement"  lines  \^ich  are  presented  to  the  BDACS  operator 
line  by  line  at  the  beginning  of  a BDACS  test  run.  A query  line 
requires  operator  response,  and  both  the  query  and  response  are  stored 
for  later  incorporation  in  the  final  data  vector.  A statement  line 
(which  begins  with  an  asterick)  does  not  require  a response.  It  is 
used  to  incorporate  information  into  the  final  data  vector  which  does 
not  change  from  one  test  run  to  the  next  or  it  is  used  for  formatting 
purposes, 

POSTSCRIPT. DA — An  RDOS  sequentially  organized,  permanent,  and  write- 
protected  file,  similar  to  the  preamble  file  described  above.  The 
postscript  file  contains  a series  of  query  or  statement  lines  which  are 
presented  to  the  BDACS  operator  following  a BDACS  test  run.  Again,  the 
query/response  or  the  statement  is  incorporated  in  the  final  data 
vector. 
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ASSIGNA.DA — An  RDOS  randomly  organized,  permanent,  and  write- 

protected  file  containing  alphanumeric  text  information  generated  and 
maintained  by  the  ASSIGN. SV  program  which  is  supplied  as  part  of  the 
BDACS  software  package.  The  alphanumeric  text  is  used  to  describe  the 
signals  being  monitored  by  the  HSB.  In  particular,  the  textual 
information  for  each  signal  is  contained  in  16  bytes  (8  words  packed 
mode  1)  null  filled.  Thus,  information  for  32  signals  is  held  in  a 
256-word  disk  block,  and  the  file  contains  as  many  disk  blocks  as 
required  for  the  HSB  signals. 

ASSIGNB.DA — An  RDOS  randomly  organized,  permanent,  and  write- 

protected  file  containing  alphanumeric  text  information  similar  to  that 
described  above.  For  the  present  file,  the  text  is  used  to  describe  the 
signals  being  monitored  by  the  BDACS  MUX  panels.  Again,  each  signal 
text  is  packed  in  8-word  segments,  with  32  signal  texts  per  256-word 
disk  block. 

ASSIGNC.DA — An  RDOS  randomly  organized,  permanent,  and  write- 

protected  file  containing  alphcinumeric  text  information  similar  to  that 
described  above.  For  this  file,  the  text  is  used  to  describe  the 
signals  being  monitored  by  the  BDACS  LSB.  Again,  each  signal  text  is 
packed  in  eight-word  segments,  with  32  signal  texts  per  256-word  disk 
block. 

BDACS. DA — An  RDOS  contiguously  organized,  permanent,  write-  and 
attribute-protected  file  containing  the  binary  data  acquired  during  a 
BDACS  test  run.  The  binary  information  is  written  into  the  file  space 
independent  of  and  external  to  the  RDOS  operating  system  and  file 
maintenance  routines.  However,  during  the  data  reduction  phase  of  the 
test  run,  the  data  are  retrieved  from  the  file  under  control  of  RDOS 
routines . 

TEMPA.TM — An  RDOS  sequentially  organized  temporary  file,  created  by 
the  BDACS  control  program  at  the  beginning  of  each  BDACS  test  run.  The 
file  provides  temporary  storage  for  the  query/response  lines  and  the 
statement  lines  of  the  preamble  file  described  earlier.  At  the  end  of  a 
BDACS  test  run,  this  file  is  transferred  to  the  final  data  vector  and/or 
the  on-line  data  printout. 

TEMPB.TM — An  RDOS  randomly  organized  temporary  file,  created  by  the 
BDACS  control  program  preceding  the  retrieval  of  the  HSB  data.  At  the 
a of  a BDACS  test  run,  this  file  is  transferred  to  the  final  data 
vector  and/or  the  on-line  data  printout. 

TEMPC.TM — An  RDOS  randomly  organized  temporary  file,  created  by  the 
BDACS  control  program  preceding  the  reduction  of  the  MUX  and  LSB  data 
(provided  the  magnetic-tape  option  is  not  in  effect) . At  the  end  of  a 
BDACS  test  run,  this  file  is  transferred  to  the  on-line  data  printout. 
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TEMPO. TM — An  RDOS  sequentially  organized  temporary  file,  created  by 
the  BDACS  control  program  following  data  reduction.  The  file  provides 
temporary  storage  for  the  query/response  lines  and  the  statement  lines 
of  the  postscript  file  described  earlier.  At  the  end  of  a BDACS  test 
run,  this  file  is  transferred  to  the  final  data  vector  and/or  the 
on-line  data  printout. 


4.  BDACS  METHOD  FILES 

Ihe  BDACS  operator  provides  information  to  the  BDACS  control  program 
on  how  a test  run  is  to  be  conducted  (or  controlled)  through  a "method" 
file.  The  different  method  files  are  RDOS  sequentially  organized  files 
containing  alphanumeric  text  information  generated  and  maintained  by  the 
DGC-supplied  text  editor  (EDIT.SV)  under  the  control  of  the  BDACS 
operator.  Each  method  file  should  contain  the  lines  of  information  that 
follow. 

(1)  The  identification  line  does  not  provide  information  to  the 
control  program  but  serves  to  identify  the  contents  of  the  file. 

(2)  The  sample  rate  line  should  contain  a single-precision,  decimal 
integer  between  50  and  4095  vrtiich  represents  the  sample  rate  (in 
microseconds)  for  the  BDACS  MUX  panels.  The  integer  may  be  preceded  and 
followed  by  alphabetic  text  strings  (nonnumeric) . 

(3)  The  test  duration  line  should  contain  a double-precision, 
decimal  integer  which  represents  the  total  duration  of  the  test  run  (in 
milliseconds) . The  integer  may  be  preceded  and  followed  by  alphabetic 
text  strings  .'nonnumeric) . 

(4)  The  HSB  line  should  contain  a single-precision,  decimal  integer 
between  500  and  10000  which  represents  the  sample  rate  (in  nanoseconds) 
for  the  BDACS  HSB.  An  asterisk  immediately  following  the  integer 
indicates  that  the  HSB  data  should  be  transferred  to  the  on-line  data 
printout  file  following  the  data  run.  Alternatively,  an  integer  of  zero 
in  this  line  indicates  that  the  HSB  data-retrieval  phase  will  be 
bypassed.  The  integer  may  be  preceded  and  followed  by  alphabetic  text 
strings  (nonnumeric) . 

(5)  The  LSB  line  should  contain  a single-precision,  decimal  integer 
between  1 and  16  which  represents  the  MUX  input  number  (on  the 
high-speed  word)  at  which  the  LSB  signal  is  Iseing  serially  monitored. 
Alternatively,  an  integer  of  zero  in  this  line  indicates  that  the  LSB  is 
not  in  use.  The  integer  may  be  preceded  euid  followed  by  alphabetic  text 
strings  (nonnumeric) . 
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(6)  The  MUX  reported  points  list  consists  of  two  or  more  lines  of 
information  representing  those  MUX  input  points  which  are  selected  for 
data  reduction  and/or  inclusion  in  the  on-line  data  printout  following  a 
test  run.  The  list  begins  with  a "header"  line  that  is  used  for 
formatting  but  imparts  no  information  to  the  control  program.  Following 
the  header  line  is  a series  of  data  lines  that  contain  one  or  more 
single-precision,  decimal  integers  separated  by  non-digit  characters. 
The  integers,  ranging  from  1 to  128,  represent  those  points  on  the  input 
MUX  panels  to  be  included  in  the  data-reduction  phase  of  the  control 
program.  An  asterisk  immediately  following  an  integer  is  a flag 
indicating  that  the  specified  point  should  also  be  contained  in  the 
on-line  data  printout.  The  last  line  of  the  MUX  reported  points  list 
should  be  an  alphabetic  text  string  (for  example,  END  OF  MUX  LIST.), 
containing  no  digits,  vrtiich  is  used  as  an  end-of-list  indicator. 

(7)  The  LSB  reported  points  list  like  that  described  above, 
consists  of  two  or  more  lines  of  information  representing  those  LSB 
input  points  that  are  selected  for  data  reduction  cind/or  inclusion  in 
the  on-line  data  printout.  Again,  the  list  consists  of  a header  line,  a 
series  of  data  lines,  cmd  an  end-of-list  indicator  line.  The  integers 
in  the  data  lines  represent  those  LSB  input  points  to  be  included  in  the 
data-reduction  phase  of  the  control  program.  An  asterisk  immediately 
following  an  integer  is  a flag  indicating  that  the  specified  point 
should  be  included  in  the  on-line  data  printout. 

(8)  The  control  point  list  consists  of  one  or  more  lines  of 
information  representing  the  control  functions  to  be  performed  by  the 
control  program  during  a test  run.  The  list  begins  with  a header  line 
that  is  used  for  format  but  imparts  no  information  to  the  control 
program.  Following  the  header  line  is  a series  of  data  lines,  each  of 
which  contains  two  single-precision,  decimal  integers  followed  by  a 
double-precision,  decimal  integer.  The  first  single-precision  integer 
represents  the  state  which  a point  on  the  MUX  output  panel  is  to  assume, 
either  0 or  1.  The  second  single-precision  integer  represents  the  point 
number  on  the  MUX  output  panel,  ranging  from  257  to  318.  However,  a 
special  point  number  of  0 may  also  be  used.  This  number  does  not 
correspond  to  any  point  on  the  MUX  output  panel;  instead,  it  indicates 
when  the  control  program  should  begin  data  storage  during  data 
acquisition.  The  double-precision  integer  represents  the  elapsed  time 
(in  milliseconds)  from  the  tseginning  of  a test  run  at  which  the  selected 
control  point  is  to  assume  the  indicated  state.  The  series  of  data 
lines  should  be  arranged  in  an  ascending  sequence  with  respect  to  time, 
and  no  two  adjacent  times  should  differ  by  more  than  32,767  ms. 
Furthermore,  the  last  time  in  the  list  and  the  test  duration  time 
specified  earlier  should  not  differ  by  more  than  32,767  ms.  If 
necessary,  pseudo- control  data  lines,  which  will  not  affect  the  current 
state  of  a control  point,  may  be  placed  in  the  data  series  to  comply 
with  the  above  limitation.  As  a second  limitation,  the  total  number  of 
lines  in  the  data  list  should  not  be  greater  than  128.  Last,  an 


14 


end-of-list  alphabetic  text  string  may  optionally  be  included  in  the 
list  and  as  a final  line  of  the  method  file.  An  exeunple  of  a typical 
method  file  is  shown  in  figure  2. 

IDENTIFlCftTION;  TtST  METHOD 
SHMPUE  RATE  <IN  USEC) ; 100 

tHJRRTION  <IN  MSEC):  10000 

HS  SUFFER:  9SO0* 

LS  BUFFER : IE 

RtPORTED  POINTS  TFiSLE 
I*2»3*4*5*i5»7*e*9*10*lltl2*13*14*13'»l«* 
17*16*19*2O’»21»22*23+24*2S*2«*2r*28*29*30*31'*32'* 

33*34  *35*36*37*36*35'*40*41*42*43»44*45*46*47*"48* 

49*50*  51*52*53*54*5b'*  5E*57*58*99*60*8l*E2*83*E4* 

65»fi6*S7*88*69*70»71*72*73*74*75*76*77*7e*79*80* 

ei*e2*83*e4*e5*86*e7*88*e9*90*91*92*93*94*9S*96* 

97*98*99*lO0*lOl*lO2*lO3*lO4*lOS*lO6*lO7*108*lO9*ltO*lil*tl2* 

113*114*115*116*117*118*119*120*121*122*123*124*12S*12E*127*128« 

END  OF  TABLE 
LS  SUFFER  TABLE 

l*;>*3*4*S»o*7*e*9*10*ll*12*13*14*lS*16* 

17*18*19*20»21*22*23*24*23*26*27*28*29*30*31*32* 

33*34*35*38*37*3e*39*40*41*42*43*44*4S*46*47*48* 

45<*50*il*32*53*S4*55*5«*57*98*39*60*6l*62*63*64* 

65*86*87*88*69*70*71*72*73*74*75*76*77*78*79*80* 

81*82*83*e4*e5*e6*e7*86*89*90«91*92*93*94*95*96* 

97*98*99*100*101*102*103*104*105*106*107*108*109*110*111*112* 

1] 3*114*115*116*117*110*119*120*121*122*123*124*125*126*127*128* 

END  OF  TABLE 
STATE  SIGNAL  TIME 

10  0 
1 257  0 

1 258  0 

1 259  0 

1 265  0 

1 266  0 

1 267  ---  8 

Figure  2.  Typical  BDACS  method  file  (partial) . 


5.  BDACS  DATA  VECTOR  AND  ON-LINE  PRINTOUT 


The  results  of  a BDACS  test  run  may  be  incorporated  in  a final  data 
vector  written  on  magnetic  tape  and/or  an  immediate  on-line  data 

printout  produced  by  the  BDACS  line-printer  or  TTY  control  unit. 

5.1  BDACS  Data  Vector 

If  the  "M"  global  switch  option  is  in  effect,  the  final  data 
vector  on  magnetic-tape  unit  MTO  contains  eight  files  described  below. 

(a)  MTO:0  is  the  preamble  file  query/response  lines  and 

statement  lines  transferred  line  by  line  from  the  TEMPA.TM  file.  This 
file  has  the  standard  RDOS  tape  format  and  record  length  of  514  bytes. 

(b)  MT0:1  is  the  method  file  selected  for  the  particular  test 

run  which  is  transferred  line  by  line.  Again,  the  file  has  the  standard 

RDOS  tape  format  and  record  length  of  514  bytes. 

(c)  MTO: 2 is  the  ASSIGNA.DA  file  transferred  as  256-word 

blocks.  The  record  length  of  each  block  is  512  bytes. 

(d)  MTO: 3 is  the  ASSIGNS. DA  file  transferred  as  256-word 

blocks.  The  record  length  of  each  block  is  512  bytes. 

(e)  MT0:4  is  the  ASSIGNC.DA  file  transferred  as  256-word 

blocks.  The  record  length  of  each  block  is  512  bytes. 

(f)  MTO: 5 is  the  MSB  data  transferred  as  256-word  blocks  from 
TEMPB.TM.  The  record  length  of  each  block  is  512  bytes. 

(g)  MT0:6  is  the  MUX  input  panel  data  and  LSB  data  generated 
during  data  reduction.  The  file  consists  of  768-word  data  blocks  with 
record  lengths  of  1536  bytes.  Each  of  the  256  data  entries  in  the  data 
blocks  has  six  bytes  (or  three  words) . The  first  byte  contains  a state 
bit  (either  1 or  0) , an  error-recovery  bit  (either  1 or  0)  and  a select 
bit  (either  1 or  0) . The  second  byte  contains  the  MUX  or  LSB  point 
number  corresponding  to  the  state.  The  third,  fourth,  fifth,  and  sixth 
bytes  contain  a double-precision  integer  representing  the  time  from  the 
beginning  of  the  test  run  (in  ms)  at  which  the  selected  point  changed  to 
the  prescribed  state. 

(h)  MTO: 7 is  the  postscript  file  query/response  lines  and 
statement  lines  transferred  line  by  line  from  TEMPD.TM  file.  This  file 
has  the  standard  RDOS  tape  format  and  record  length  of  514  bytes. 
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If  the  "L"  global  switch  option  is  in  effect,  the  final  data 
vector  is  transferred  to  the  BDACS  line  printer.  Similarly,  if  the  "T" 
global  switch  option  is  in  effect,  the  final  data  vector  is  transferred 
to  the  BDACS  TTY  control  unit.  For  either  case,  this  data  vector 
contains  the  following  entries: 

(a)  The  preamble  file  query /response  lines  and  statement  lines 
transferred  line  by  line  from  TEMPA.IW  file. 

(b)  The  postscript  file  query /response  lines  and  statement 
lines  transferred  line  by  line  from  TEMPD.IM  file. 

(c)  The  method  file  transferred  line  by  line  from  the  method 
file  selected  for  the  test  run. 

(d)  The  MSB  data,  if  the  printout  option  as  described  in 
section  4 is  in  effect.  This  printout  consists  of  (1)  the  assignment 
table  for  the  different  HSB  input  signals  derived  from  ASSIGNA.DA,  and 
(2)  a chronological  list  of  the  monitored  states  of  the  HSB  input 
signals.  The  time  at  which  each  signal  was  monitored  is  derived  from 
the  HSB  sample  rate  described  in  section  4. 

(e)  The  input  MUX  data  and  LSB  data  for  those  MUX  and  LSB 
signal  points  which  were  flagged  for  on-line  data  printout,  as  described 
in  section  4.  The  printout  consists  of  data  lines  containing  (1)  the 
new  state  (either  1 or  0)  vdiich  a signal  point  assumes,  (2)  the  time  (in 
microseconds)  at  which  the  state  change  occurred,  (3)  the  signal  point 
number  and  select  code  (either  "M"  for  MUX  panel  or  "L"  for  LSB)  , and  (4) 
the  signal  point  mnemonic  name  for  the  signal  as  derived  from  either  the 
ASSIGNS. DA  or  the  ASSIGNC.DA  files. 


6.  ROOT  BINARY  SEGMENT — MONTR.SR 

The  root  binary  segment  is  the  part  of  the  control  program  that 
remains  core  resident  throughout  a BDACS  test  run.  For  this  reason,  the 
root  binary  segment  was  designed  to  require  only  a small  eunount  of  core, 
while  most  of  the  program  core  requirements  are  shared  among  the  several 
overlay  modules.  The  assembly  language  structure  for  MONTR.SR  is  given 
in  appendix  A,  section  A-1.  The  root  binary  segment  is  divided  into  the 
following  three  regions  (sect.  6.1,  6.2,  and  6.3). 

6 . 1 ZREL  Parameters 

This  region  is  organized  in  relocatable  page-zero  locations  and 
contains  those  pareuneters  that  are  common  among  or  global  to  the  several 
overlay  modules.  In  particular,  the  following  parcuneters  are  presently 
in  use. 


I : 


I 
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(a)  OVRTN  holds  the  return  address  to  the  root  binary  from  all 
overlay  modules  (except  when  program  exit  is  affected  in  ERMSG.SR) . 
This  parameter  is  set  in  subroutine  OVLOD  as  part  of  the  overlay  loading 
procedure . 

(b)  RECOV  provides  several  functions:  First,  it  holds  the 

f system,  error  code  if  an  RDOS  system  call  error  occurs  during  processing 

■ in  any  of  the  overlay  modules.  Second,  it  holds  the  root  binary  return 

address,  previously  stored  in  OVRTN,  if  a recoverable  error  occurs  in 
' any  overlay  module. 

(c)  ERRTN  contains  the  NREL  address  to  the  root  binary  section 
labelled  ERROR.  This  allows  an  abnormal  exit  from  any  overlay  module  to 

L the  root  binary  segment  when  specific  errors  occur. 

I (d)  ERCOD  contains  an  error  code  which  is  returned  to  the  root 

i binary  segment  whenever  an  abnormal  error  return  is  affected.  In 

I particular,  a code  of  -1  is  returned  for  an  RDOS  system  call  error.  For 

other  errors,  the  left-hand  byte  of  ERCOD  contains  the  overlay  number  in 
which  the  error  condition  occurred,  and  the  right-hand  byte  of  ERCOD 
contains  the  error  number  for  that  particular  overlay  module.  ERCOD  is 
set  within  each  overlay  module  and  supplies  information  to  the  error 
message  overlay  ERMSG.SR. 

(e)  MAGFG  provides  two  functions:  First,  it  holds  the  first 

' global  switch  word  supplied  from  the  COM. CM  file  generated  by  the 

RDOS-CLI.  Second,  it  holds  a nonzero  value  as  a flag  if  global  switch 
"M"  is  optionally  set  indicating  a magnetic  tape  is  required.  This 
parameter  is  set  in  overlay  module  PHASl.SR  and  used  in  PHASl.SR, 
PHAS3.SR,  PHAS4.SR,  and  PHAS5.SR. 

(f)  PRINT  provides  two  functions:  First,  it  holds  the  second 
global  switch  word  supplied  from  the  COM. CM  file  generated  by  the 
RDOS-CLI.  Second,  it  holds  nonzero  print  flags  if  global  switch  "L"  is 
set,  for  line  printer  required,  or  global  switch  "T"  is  set,  for  TTY 
control  unit  required.  Bit  1B15  is  set  for  "L"  and  IBO  is  set  for  "T." 
This  parameter  is  set  in  PHASl.SR  and  used  in  PHAS5.SR. 

(g)  SMPRT  holds  the  MUX  panel  sample  rate  as  a single-precision 
binary  integer.  It  is  set  in  overlay  module  PHASl.SR  and  used  in 
PHAS2.SR  and  PHAS4.SR. 

(h)  HSMON  holds  the  HSB  sample  rate  as  a single-precision 
binary  integer  and  the  optional  HSB  on-line  data  printout  flag  in  IBO. 
It  is  set  in  overlay  module  PHASl.SR  and  used  in  PHAS3.SR  and  PHAS5.SR. 

(i)  LSMON  holds  the  LSB  signal  point  on  the  MUX  panel  as  a 
single-precision  binary  integer.  It  is  set  in  overlay  module  PHASl.SR 
and  used  in  PHAS4.SR  during  data  reduction. 
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(j)  BLKCT  contains  the  number  of  remaining  track  surfaces  on 
the  disk  in  which  data  from  the  MUX  input  panel  are  stored.  The 
parameter  is  initially  set  to  a maximum  count,  currently  200,  and 
decremented  during  overlay  module  PHAS2.SR  operations.  The  parameter  is 
also  used  in  PHAS4.SR  during  data  reduction. 

(k)  HLDCT  contains  the  number  of  data  blocks  acquired  but  not 
stored  on  the  disk  preceding  the  onset  of  data  storage.  The  parameter 
is  initially  zero  and  periodically  incremented  during  data  acquisition 
PHAS2.SR  of  the  control  program.  The  parameter  is  used  in  PHAS4.SR 
during  data  reduction. 

6 . 2 NREL  Input/Output  Control  Tables 

This  region  of  the  root  binary  segment  consists  of  three  tables 
containing  input  and  output  control  information. 

(a)  MSKTB  is  divided  into  three  parts.  The  first  part  contains 
mask  words  of  those  MUX  input  points  which  have  been  designated  for  data 
reduction  (see  sect.  4) . The  mask  words  are  packed  with  16  points  per 
word,  each  bit  from  1B15  to  IBO  being  set  if  the  corresponding  point  is 
reported.  At  present,  eight  such  mask  words  corresponding  to  128  input 
points  are  in  use.  The  second  part  contains  mask  words  whose  bits 
correspond  to  the  previous  state  (either  1 or  0)  of  the  different  MUX 
input  points.  As  above,  the  words  are  packed  with  16  points  per  word 
for  a total  of  eight  mask  words.  Initially,  the  mask  words  are  all 
zero,  corresponding  to  an  assumed  initial  0 or  "off"  state  for  the  input 
points.  The  third  part  of  MSKTB  contains  mask  words  of  those  MUX 
input  points  which  have  been  designated  for  immediate  on-line  data 
printout  (see  sect.  4) . Again,  the  words  are  packed  with  16  points  per 
word  for  a total  of  eight  mask  words.  Thus,  the  total  present  length 
for  MSKTB  is  24  words,  plus  one  spare. 

(b)  LSBTB  is  the  LSB  equivalent  to  MSKTB.  Again  the  table  is 
divided  into  three  parts  containing  mask  words  which  correspond  to  the 
reported  points,  the  previous  state,  and  the  points  enabled  for  on-line 
printout. 


(c)  CTLTB  contains  the  information  required  to  perform  the 
control  operations  in  overlay  module  PHAS2.SR.  Currently,  the  table  has 
a capacity  for  128  such  control  functions,  with  each  control  function 
having  a corresponding  three-word  entry  in  the  table.  The  first  word  of 
an  entry  contains  the  elapsed  time  (in  milliseconds)  from  the  previous 
entry  at  which  the  present  control  function  is  to  be  activated.  The 
second  word  of  an  entry  contains  a word  mask  specifying  the 
corresponding  bit  position  in  the  MUX  output-panel  buffer  word  which  is 
to  be  activated  (or  altered) . The  third  word  of  an  entry  contains  both 
the  state  to  be  activated  (in  bit  position  1B15)  and  the  address  of  the 
MUX  output-panel  buffer  word  (in  the  remaining  bit  positions). 
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6 . 3 NREL  Code 


This  region  of  the  root  binary  segment  contains  the  limited 
amount  of  instruction  code  vdiich  is  required  for  overlay  module 
initiation  and  loading  and  for  overlay  module  entry  and  exit  control. 

The  control  progreun  begins  at  parameter  START  and  immediately 
initializes  and  opens  the  control  progrcun  overlay  file  MONTH. OL  on 
channel  No.  7.  Next,  the  overlay  modules  PHASl.SR,  PHAS2.SR,  PHAS3.SR, 
PHAS4.SR,  and  PHAS5.SR  are  sequentially  loaded  into  memory  via  the 
overlay  load  svibroutine  OVLOD.  Following  each  load  a branch  instruction 
is  performed  into  the  overlay  region  to  addresses  OVSTl,  OVST2,  0VST3, 
0VST4  and  0VST5.  Following  a normal  con?>letion  of  these  overlay  module 
instructions,  or  if  an  error  condition  occurs,  the  last  overlay  module 
ERMSG  is  loaded  and  entered.  From  this  overlay  module  a normal  or 
abnormal  return  to  the  RDOS-CLI  is  performed,  or  the  root  binary  segment 
is  reentered  if  a recoverable  error  is  encountered. 


7.  OVERLAY  MODULE— PHASl . SR 

This  overlay  module  is  the  part  of  the  control  program  that  receives 
the  control  input  data  from  the  "method"  file  and  constructs  the  control 
tables  as  described  in  sections  4 and  6.2.  In  addition,  this  module 
performs  the  query/response  operations  associated  with  the  PREAMBLE. DA 
file  and  begins  construction  of  the  BDACS  temporary  files  and  the  BDACS 
data  vector  described  in  sections  3 and  5. 

PHASEl.SR  is  composed  of  instructions  interspersed  with  tables  and 
parameters.  Logically,  the  module  is  divided  into  three  main  regions, 
the  "backbone,"  the  subroutines,  and  the  name/test  strings.  These 
regions  are  described  in  detail  in  sections  7.1  to  7.4  and  the  assembly 
language  listing  for  PHASl.SR  is  shown  in  appendix  A,  section  A-2. 

7.1  PHASl.SR  Backbone  Code 

The  backbone  code  for  PHASl.SR  is  primarily  a set  of  sequential 
Initialization  tasks  for  the  control  prograun.  The  main  tasks  performed 
are  to 

(a)  reset  MUX  output  buffer,  MUX  input  mask  table,  and  the  LSB 
input  mask  table. 

(b)  disable  RDOS  spooling  on  $LPT  and  $TTO;  open  the  output 
message  unit  (STTO) . 

(c)  open  the  RDOS-gene rated  COM. CM  file  and  retrieve  the  global 
switches  and  "method"  file  neune;  set  data  vector  and  on-line  printout 
option  flags  (see  sect.  6.1(f)  and  (h));  initialize  MTO  (if  required). 
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(d)  open  the  prescribed  "method"  file  and  extract  program 
control  data  as  described  in  section  4;  construct  MUX  input  mask  table, 
LSB  input  mask  table,  and  MUX  output  control  table,  as  described  in 
section  6.2. 

(e)  create  TEMPA.TM  file;  open  TEMPA.TM  and  PREAMBLE. DA  files; 
read  preamble  query/statement  lines  and  obtain  operator  response; 
construct  TEMPA.TM. 

(f)  transfer  TEMPA.IM,  the  "method"  file,  ASSIGNA.DA, 
ASSIGNB.DA,  and  ASSIGNC.DA  to  the  magnetic-tape  data  vector  (if  "M" 
option  is  in  effect) . 

(g)  check  for  proper  sense-switch  conditions. 

During  the  process  of  receiving  initialization  parameters  and 
data,  these  quantities  are  checked  for  proper  value  limits.  If  an 
out-of-bounds  condition  arises,  control  is  transferred  to  an  error 
routine . 

7.2  PHASl.SR  Subroutine  Code 


The  subroutines  which  comprise  part  of  the  PHASl.SR  code  are 
accessed  from  the  backbone  code  one  or  more  times  using  the  assembly 
language  JSR  instruction.  Typically,  access  to  the  subroutine  is 
indirect,  with  the  subroutine  starting  address  stored  in  an  access  word 
near  the  JSR  instruction.  Moreover,  depending  on  the  subroutine,  one  or 
more  parameters  may  follow  the  JSR  instruction.  Return  is  made  to  the 
instruction  following  the  last  parameter,  unless  errors  or  exceptional 
conditions  cause  branching  to  other  parts  of  the  code.  The  following 
paragraphs  briefly  describe  the  subroutines  found  in  PHASl.SR. 

(a)  TABLE  reads  the  contents  of  the  MUX  or  LSB-reported  points 
list  in  the  "method"  file  and  constructs  the  MSKTB  or  LSBTB  mask  table 
described  in  section  6.2(a)  and  (b) . Three  parameters  are  associated 
with  the  subroutine:  the  first  contains  the  tseginning  address  of  the 
mask  table,  the  second  contains  the  maximvim  size  of  a valid  list  entry, 
and  the  third  contains  offset  within  the  table  for  the  beginning  of  the 
on-line  printout  masks.  Entries  within  the  list  are  assumed  to  begin  at 
a value  of  one.  An  exceptional  return  to  the  error  routine  occurs  if  an 
entry  in  the  list  is  out  of  bounds.  Normal  return  occurs  when  a line 
containing  no  digits  is  encountered  in  the  list. 

(b)  CKNBR  checks  a binary  number  for  valid  bounds.  The  number 
is  contained  in  AGO.  The  lower  laound  is  given  as  the  first  pareimeter 
and  the  upper  bound  is  given  as  the  second  parameter.  An  exceptional 
return  to  the  error  routine  occurs  if  an  out-of-bounds  condition  occurs. 
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(c)  XFERF  transfers  ASCII  data  from  one  file  to  another.  The 
two  parameters  that  are  required  contain  the  byte  pointers  to  the  source 
file  name  and  the  destination  file  name.  The  files  are  opened  on  RDOS 
channels  No.  3 and  No.  4,  the  transfer  is  made  on  a line-by-line  basis, 
and  the  files  are  then  closed  on  both  channels.  No  exceptional 
condition  is  explicitly  contained  in  this  subroutine. 

(d)  XBLK  transfers  contents  from  a disk  file  to  a magnetic-tape 
file  block  by  block  (256  words  per  block).  Similar  to  XFEFIF , the  files 
in  XBLK  are  opened  on  RDOS  channels  No.  3 and  No.  4,  the  transfer  is 
made,  and  the  files  are  then  closed  on  both  channels. 

(e)  MWTUT  transfers  words  to  a destination  storage  area  from 
the  utility  buffer  pointed  to  by  the  byte  pointer  UTBPT.  Two  parameters 
are  required,  the  first  containing  the  address  of  the  destination  area, 
and  the  second  containing  the  number  of  words  to  be  moved. 

(f)  FMMSK  forms  a mask  (in  ACl)  and  displacement  value  (in  ACO) 
corresponding  to  an  initial  binary  value  in  ACO.  In  effect,  the 
subroutine  divides  ACO  by  16  to  form  the  displacement  as  the  quotient. 
The  remainder  is  used  to  set  the  associated  bit  position  in  the  mask 
word  contained  in  ACl  (a  remainder  of  0 sets  bit  1B15) . All  other  bits 
in  the  mask  are  reset. 

(g)  GTSPN  reads  an  ASCII  decimal  integer  text  string  and  forms 
the  corresponding  single-precision  unsigned  binary  integer  in  ACO.  The 
byte  pointer  to  the  beginning  of  the  text  string  is  stored  in  ACl.  The 
subroutine  searches  the  text  string  until  the  first  decimal  character  is 
encountered.  Thereafter,  each  succeeding  decimal  character  is  folded 
into  the  binary  equivalent  of  the  number.  The  first  non-decimal 
character  terminates  the  scan,  and  upon  exit  from  the  subroutine  AC2 
contains  the  byte  pointer  to  this  terminating  character.  A jump  is  made 
to  the  error  routine  whenever  a binary  number  overflow  occurs  (that  is, 
a number  greater  than  65,383)  or  whenever  no  number  is  found  within  the 
text  string. 

(h)  GTDPN  is  similar  to  GTSPN  except  that  a double-precision 
unsigned  binary  integer  is  formed  in  ACO  and  ACl.  An  overflow  occurs 
whenever  the  number  is  greater  than  4,294,967,295. 

(i)  GTSPR  is  similar  to  GTSPN  except  that  if  no  number  is  found 
in  the  text  string,  then  exit  from  the  subroutine  is  performed  via  the 
first  parameter. 

(j)  GTBYT  retrieves  a byte  from  a text  string  pointed  to  by  a 
byte  pointer  in  AC2.  The  byte  is  returned  in  ACO  (right-hand  position) , 
and  the  byte  pointer  is  left  unchanged. 
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(k)  STBYT  stores  a byte  held  in  ACO  {right-hand  position)  in 
the  text  string  pointed  to  by  a byte  pointer  in  AC2.  Upon  return  from 
the  subroutine,  the  byte  pointer  is  incremented  by  one  count. 

(l)  GREAT  creates  a sequentially  organized  disk  file  by  using 
the  system  call  .GREAT.  The  first  parameter  contains  a name  pointer  to 
the  name  of  the  file  to  be  created.  If  the  file  already  exists,  the  old 
file  is  deleted  and  a new  file  is  created;  otherwise,  all  system  errors 
cause  a branch  to  the  system  error  routine. 

(m)  DELET  deletes  a file  by  usino  the  system  call  .DELET.  The 
first  parameter  contains  a name  pointer  to  the  name  of  the  file  to  be 
deleted.  If  the  file  does  not  exist,  no  error  is  initiated;  otherwise, 
all  system  errors  cause  a branch  to  the  system  error  routine. 

(n)  OPFLE  opens  a file  on  an  RDOS  channel  by  using  the  system 
call  .OPEN.  The  first  parameter  contains  a name  pointer  to  the  name  of 
the  file  to  be  opened.  The  second  parameter  contains  the  channel 
number.  Default  characteristics  for  the  file  are  assumed  when  the 
subroutine  is  called.  All  system  errors  cause  a branch  to  the  system 
error  routine. 

(o)  GLFLE  closes  a file  on  an  RDOS  channel  by  using  the  system 
call  .GLOSE,  The  first  parameter  contains  the  channel  number  to  be 
closed.  All  system  errors  cause  a branch  to  the  system  error  routine. 

(p)  INMTA  initializes  the  magnetic  tape  until  MTO  by  using  the 
system  call  .INIT.  A partial  initialization  is  assumed  when  the 
subroutine  is  called,  and  the  subroutine  waits  locally  until  the  "device 
ready"  status  is  achieved.  All  system  errors  cause  a branch  to  the 
system  error  routine . 

(q)  WTLUT  writes  a line  from  the  utility  buffer  (pointed  to  by 
byte  pointer  UTBPT)  to  the  file  opened  on  channel  No.  3.  This 
subroutine  uses  the  system  call  ,WRL.  All  system  errors  cause  a branch 
to  the  system  error  routine. 

(r)  TYLUT  is  similar  to  WTLUT  except  the  channel  on  which  the 
system  console  output  file  ($TTO)  is  opened  is  No.  1. 

(s)  TYPMG  is  similar  to  WTLUT  and  TYLUT  except  the  byte  pointer 
is  given  as  the  first  parameter  and  points  to  a message  text  string. 

(t)  RDSUT  reads  sequentially  a number  of  bytes  from  the  file 
opened  on  channel  No.  4 to  the  utility  buffer  (pointed  to  by  byte 
pointer  UTBPT).  The  subroutine  uses  the  system  call  .RDS,  and  the 
numtser  of  bytes  to  be  read  is  given  as  the  first  parameter.  All  system 
errors  cause  a branch  to  the  system  error  routine. 
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(u)  RDLUT  reads  a line  from  the  file  opened  on  channel  No.  4 to  ( 

the  utility  buffer  (pointed  to  by  byte  pointer  UTBPT) . The  subroutine 

utilizes  the  system  call  .RDL,  and  upon  successful  retxirn,  AC2  contains 
the  byte  pointer  to  the  byte  following  the  end  of  the  line.  All  system 
errors  cause  a branch  to  the  system  error  routine. 

(v)  RDLUR  is  similar  to  RDLUT  except  that,  upon  detecting  an 
end-of-file  error  condition,  the  sxabroutine  exits  via  the  first 
parauneter. 

(w)  RDLUA  is  similar  to  RDLUT  except  that  the  byte  pointer  is 

located  in  AC2  and  the  channel  number  for  the  file  is  given  as  the  first 

parameter. 

(x)  SPLDS  disables  spooling  on  a device  whose  name  is  pointed 

to  by  the  byte  pointer  given  in  the  first  parameter.  The  subroutine  | 

uses  the  system  call  .SPDA,  and  all  system  errors  cause  a branch  to  the 
system  error  routine. 

(y)  OPMTA  opens  a magnetic  tape  file  for  free  format  I/O  on  an 

RDOS  channel  by  using  the  system  call  .MTOPD.  The  first  parameter 

contains  a byte  pointer  to  the  name  of  the  magnetic-tape  file  neune,  and  , 

the  second  parameter  contains  the  channel  number  on  which  the  file  is  to 
be  opened.  All  system  errors  cause  a branch  to  the  system  error 
routine . 

(z)  MTAWT  performs  a magnetic- tape  free  format  "write" 
operation  to  the  file  on  channel  No.  3 by  using  the  system  call  .MTDIO. 

The  data  to  be  transferred  are  located  in  the  buffer  pointed  to  by  BUFFR 
and  include  a block  of  256  words.  All  system  error  conditions  except 
"end-of-file"  cause  a branch  to  the  system  error  routine. 

(aa)  MTASR  is  similar  to  MTAWT,  except  a free  format  "space 
reverse"  of  one  record  is  initiated. 

(bb)  MTAEF  is  similar  to  MTAWT,  except  a free  format  "write 
end-of-file"  is  initiated. 

(cc)  RDBLK  reads  a disk  block  from  the  file  opened  on  channel 
No.  4 using  the  system  call  .RDB.  The  first  parameter  contains  the 
block  number  within  the  file  which  is  to  be  read,  and  the  second 
parameter  contains  a branching  address  for  an  end-of-file  error 
condition.  A single  256-word  block  is  read  from  the  file  into  the  core 
area  pointed  to  by  BUFFR.  All  system  errors  except  the  end-of-file 
condition  cause  a branch  to  the  system  error  routine. 
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7.3  PHASl.SR  Name/Text  Strings  and  Buffers 


The  final  region  of  PHASl.  SR  is  composed  of  a set  of  packed 
ASCII  name  and  text  strings  pointed  to  by  name  or  text  byte  pointers. 
These  pointers  are  assembly  language  "equates"  that  do  not  generate  an 
object  code,  but  instead  provide  byte  pointer  values  used  in  the 
"backbone"  and  subroutine  regions  of  PHASl. SR.  The  name  and  text 
strings  are  those  RDOS  file  names  and  BDACS  file  names  or  messages  used 
in  PHASl. SR  and  are  generated  with  assembly  packing  mode  1,  the  normal 
packing  mode  for  RDOS  strings.  Last,  the  final  part  of  the  name  and 
text  string  region  contains  the  address  pointer  UTBPT  to  a 68-word 

utility  buffer  area  and  the  address  pointer  BUFFR  to  a 256-word  block 

I/O  buffer.  These  buffers  are  used  for  I/O  operations  for  several 

subroutines  described  in  section  7.2. 

7.4  PHASl. SR  Error  Routine 

Several  program  error  conditions  can  cause  a branch  to  the 
PHASl. SR  error  routine.  This  routine  determines  the  point  in  the 
PHASl. SR  code  where  the  error  occurred  and  encodes  an  error  code  word 
which  is  stored  in  ERCOD  within  the  root  binary  segment  (see 
sect.  6.1(d)).  The  error  code  word  contains  in  the  left-hand  byte  the 
overlay  module  number  (one  in  the  present  case)  in  which  the  error 
occurred  and  in  the  right-hand  byte  the  displacement  from  the  beginning 
of  an  error  table.  This  error  table  (pointed  to  by  the  symbol  ERTBL) 
contains  as  entries  those  addresses  which  immediately  follow  a JSR 

instruction  to  the  error  routine.  Within  the  routine,  the  error  table 
is  scanned  until  a match  is  found  between  an  error  table  entry  and  AC3, 
the  latter  containing  the  return  address  of  that  JSR  instruction  from 
which  the  routine  was  entered.  Thus,  the  error  is  identified  as  a 
displacement  from  the  start  of  the  error  table.  A corresponding 
displacement  from  the  start  of  a message  pointer  table  in  the  overlay 
module  EMMSG.SR  contains  a table  entry  which  points  to  the  associated 
error  message.  This  message  is  svibsequently  printed  on  the  system 
output  console  (that  is,  $TTO) . 

At  present,  the  12  program  errors  detected  for  PHASl. SR  are 

(a)  ERRl — "MONITOR  POINT  UNDERFLOW" —the  entry  in  the  MUX  input 
list  or  LSB  input  list  is  less  than  unity. 

(b)  ERR2— "MONITOR  POINT  OVERFLOW" —the  entry  in  the  MUX  input 
list  or  LSB  input  list  is  greater  than  maximum  value  allowed  (presently 
128  and  128,  respectively. 

(c)  ERR3— "CONTROL  TABLE  OVERFLOW"— the  number  of  control  table 
entries  exceeded  the  maximum  value  allowed  (presently  128) . 
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(d)  ERR4 — "OUTPUT  LIST  NOT  IN  SEQUENTIAL  ORDER" — the  entries  in 
the  control  table  are  not  monotonically  increasing  in  time. 

(e)  ERRS — "OUTPUT  LIST  DELTA  TIME  OVERFLOW" — the  time 
difference  between  two  adjacent  control  list  entries  is  greater  than  the 
maximum  value  allowed  (32,767). 

(f)  ERR6 — "CONTROL  POINT  UNDERFLOW"— the  MUX  output  point  in  a 
control  table  entry  is  less  than  the  minimum  value  allowed  (presently 
257)  . 


(g)  ERR7 — "CONTROL  POINT  OVERFLOW" — the  MUX  output  point  in  a 
control  table  entry  is  greater  than  the  maximum  value  allowed  (presently 
318)  . 


(h)  ERRS — "SP-DP  OVERFLOW" — the  number  in  a text  string 
exceeded  the  single  precision  maximum  (65,535)  or  the  double  precision 
maximum  (4,294,967,295)  in  subroutines  GTSPN  (or  GTSPR,  GTSPA)  and  GTDPN, 
respectively. 

(i)  ERR9 — "EOL,  NO  NUMBER  FOUND" — no  number  was  found  in  a text 
string  when  subroutines  GTSPN,  GTSPA,  or  GTDPN  are  called. 

(j)  ERRIO — "SAMPLE  RATE  OUT  OF  BOUNDS" — the  sample  rate  for  the 
MUX  panels  is  either  less  than  the  minimum  allowed  value  (presently  50) 
or  greater  than  the  maximum  allowed  value  (presently  4095). 

(k)  ERRll— "LOW  SPEED  BUFFER  MONITOR  POINT  OUT  OF  BOUNDS"— the 
point  on  the  input  MUX  panel  where  the  low-speed  buffer  signal  is 
monitored  is  less  than  the  minimum  value  allowed  (presently  1)  or  is 
greater  than  the  maximum  value  allowed  (presently  16) . 

(l)  ERR12 — "HIGH  SPEED  BUFFER  SAMPT,E  RATE  OUT  OF  BOUNDS"— the 
value  specified  for  the  HSB  sample  rate  is  less  than  the  minimum  value 
allowed  (presently  500)  or  is  greater  than  the  maximum  value  allowed 
(presently  10,000). 

If  the  error  is  a result  of  a system  error  returned  from  one  of  the 
RDOS  system  calls  described  in  section  7.2,  the  error  code  ERCOD  is  set 
to  -1  as  a system  error  flag.  For  either  type  of  error  (program  or 
system)  return  is  made  to  the  root  binary  section  via  ERRTN,  as 
described  in  section  6.1(c). 


8.  OVERLAY  MODULE— PHAS2 . SR 

This  overlay  module  is  the  portion  of  the  control  program  that 
initiates  the  start  of  data  acquisition  and  supervises  the  operations  of 
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the  input  and  output  MUX  panels  (multiplexers) . This  module  has  the 
complicated  tas)c  of  retrieving  data  from  the  input  MUX  and  storing  the 
data  in  a tenporary  buffer  and,  when  the  buffer  is  full,  of  transferring 
the  data  to  the  disk.  Concurrently,  the  module  is  monitoring  the 
real-time  clock  (RTC)  and,  at  the  preselected  control  times,  updating 
the  output  MUX  buffer  data.  These  data  are  periodically  sent  to  the 
output  MUX  panel  to  control  the  various  BDACS  operations  during  a test 
run. 


Since  the  input  and  output  data  flow  can  teike  place  at  very  fast 
rates  (two  input  data  words  and  one  output  data  word  can  be  transferred 
within  50  ys) , the  response  of  the  standard  RDOS  interrupt  service 
routine  is  not  adequate.  Thus,  the  main  portion  of  the  PHAS2.SR  code 
contains  a more  streamlined  interrupt  service  routine  to  handle  the 
multiplexer,  disk,  and  RTC  operations.  In  addition,  PHAS2.SR  contains 
the  test-run  initiation  and  control  loop  code  and  data  tables  necessary 
to  "set  up"  the  multiplexer  I/O  controller.  These  three  functions  are 
described  in  more  detail  in  the  following  sections,  and  the  assembly 
language  listing  for  PHAS2.SR  is  shown  in  appendix  A,  section  A-3. 

8.1  PHAS2.SR  Multiplexer  Controller  Setup 

The  BDACS  multiplexer  controller  contains  the  circuitry  vdiich 
provides  the  interface  between  the  central  processing  unit  (CPU)  and  the 
MUX  input  and  output  panels.  Since  this  controller  operates  by  direct 
memory  access  (DMA)  data  transfer,  it  must  be  preprogrammed  with  the 
appropriate  core  buffer  address  and  word  count  for  DMA.  Furthermore, 
the  information  which  controls  the  operation  of  MUX  input  and  output 
panels  must  be  supplied  to  the  controller.  These  data  are  held  in  a 
PHAS2.SR  data  teible  and  are  transferred  from  the  CPU  to  the  multiplexer 
controller  with  the  basic  NOVA  I/O  instruction  repertoire,  as  described 
below. 


(a)  DMUXA  holds  the  input  and  output  MUX  panel  starting 
addresses  and  word  counts.  A four-bit  address  and  a four-bit  word  count 
are  associated  with  each  type  of  panel.  The  information  is  supplied  to 
the  controller  by  a DOA  instruction. 

(b)  DMUXB  holds  the  DMA  input  starting  address  for  the  initial 
DMA  operation.  The  starting  address  points  to  a core  buffer  region  in 
which  the  input  data  are  stored.  The  address  is  supplied  to  the 
controller  by  a DOB  instruction. 

(c)  DMUXC  holds  the  highspeed  word  option  bit  (IBl)  and  the 
sampling  rate  for  the  controller  (in  bits  1B4-1B15) . Also,  for  proper 
transfer  of  the  data,  IBO  flag  bit  should  be  "set."  The  data  are 
supplied  to  the  controller  by  a DOC  instruction. 
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(d)  DMUXD  contains  the  (negative)  vrard  count  for  the  initial 
DMA  operation.  As  noted  above,  this  word  count  in  conjunction  with  the 
starting  address  (DMUXB)  controls  the  storing  of  input  data  in  the  core 
buffer.  When  the  count  is  decremented  to  zero,  a MUX  interrupt  occurs. 
In  contrast  to  (c) , a IBO  flag  bit  should  be  "reset"  for  proper  transfer 
of  the  data  by  a DOC  instruction. 

(e)  DMUXE  contains  the  (running)  starting  address  for  the 
remaining  DMA  operations.  It  typically  contains  a core  address  which  is 
one  less  than  that  specified  (in  DMUXB) . It  is  used  to  reset  the 
running  value  of  the  address  register  in  the  controller  following  a 
MUX  interrupt  and  overflow.  Again,  the  data  are  supplied  with  a DOB 
instruction. 

(f)  DMUXF  contains  the  (running)  negative  word  count  for  the 
remaining  DMA  operations.  It  typically  contains  a count  one  greater  (in 
absolute  magnitude)  than  that  specified  in  DMUXD.  It  is  used  to  reset 
the  running  value  of  the  word-count  register  in  the  controller  following 
a MUX  interrupt  and  overflow.  Again,  the  data  are  supplied  with  a DOC 
instruction  with  IBO  "reset." 

Two  I/O  instruction  special  functions  should  also  be  supplied 
to  the  controller  following  the  general  reset  of  the  controller.  First, 
the  START  function  may  be  supplied  with  any  of  the  instructions  given 
above  and  causes  a reset  of  the  DONE  state  and  a set  of  the  BUSY  state 
in  the  controller.  Second,  the  PULSE  function  is  supplied  to  the 
controller  immediately  upon  receipt  of  the  BDACS  operators  signal  to 
begin  the  test  run  (via  the  CPU  console  sense  switch  IBO)  and  causes  the 
controller  to  commence  I/O  operations. 


8.2  PHAS2.SR  Test-Run  Initiation  and  Control  Loor 


The  sequential  tasks  performed  in  PHAS2.SR  are 

(a)  wait  for  all  TTY  and  disk  operations  to  end;  reset  the 
multiplexer  controller,  disk,  and  RTC, 

(b)  save  the  RDOS  interrupt  service  routine  pointer  and  encible 
the  BDACS  data  acquisition  interrupt  service  routine  pointer  and  mask, 

(c)  position  the  disk  at  the  beginning  of  the  BDACS  data 
storage  file  (see  sect.  3.6), 


(d)  set  up  the  multiplexer  controller  as  described  in 
section  8.1;  set  the  RTC  for  1 ms  operation,  and 


t 

to 
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(e)  send  a "ready"  message  to  the  BDACS  operation  on  the  TTY 
control  unit;  wait  for  the  operator  to  initiate  the  test  run;  then  start 
the  RTC  and  MUX  and  branch  to  the  control  loop. 

These  tasks  are  performed  within  the  control  loop: 

(a)  Check  the  remaining  time  count  of  the  current  table  entry 
(see  sect.  6.2(b));  if  the  count  is  zero,  update  the  appropriate  MUX 
output  buffer  word  or  set  the  appropriate  special  flag  (for  example, 
HLDFG  is  set  when  the  disk  storage  holdoff  time  is  complete;  ENDFG  is 
set  when  the  end  of  data-acquisition  time  is  complete) . Move  to  the 
next  table  entry. 

(b)  Check  the  RTC  counter  (RTCCT) ; if  the  count  is  nonzero, 
update  the  remaining  time  count  for  the  current  control  tc±>le  entry. 
Loop  back  to  (a) . 

When  data  acquisition  is  ended,  the  data  input  buffer  currently 
being  filled  is  completed  and  transferred  to  the  disk.  The  final  tasks 
involve  a general  reset  of  the  multiplexer  controller,  disk,  and  RTC  and 
a replacement  of  the  previously  saved  RDOS  interrupt  service  routine. 

8.3  PHAS2.SR  Interrupt  Service  Routine 

The  special  BDACS  interrupt  service  routine  for  PHAS2.SR 
processes  interrupts  generated  by  either  the  multiplexer  controller,  the 
disk,  or  the  RTC.  This  routine  uses  only  accumulators  ACO,  ACl,  and 
CARRY;  thus,  only  these  quantities  need  to  be  stored  when  entering  the 
routine.  The  method  by  which  each  type  of  interrupt  is  handled  is 

(a)  RTC  interrupt  is  very  simply  handled  by  restarting  the 
clock  with  the  NIOS  instruction  and  incrementing  the  RTC  counter 
(RTCCT) . Return  is  then  made  to  the  interrupted  program. 

(b)  Disk  interrupt  first  obtains  the  disk  status  word  and 
checks  for  any  error  condition.  The  status  word  also  determines  which 
of  two  possible  disk  conditions  initiated  the  interrupt.  First,  if  a 
disk  SEEK  to  a new  track  has  just  been  conpleted,  the  service  routine 
determines  if  a core  buffer  is  full  and  the  data  in  the  buffer  need  to 
be  transferred.  If  so,  the  transfer  (disk  WRITE)  operation  is 
initiated.  The  disk  flag  (DKPFG)  is  updated  (for  example, 
DKPFG=0  "idle,"  DKPFG=-1  "seeking,"  DKPFG=+1  "writes  deferred," 
DKPFG=MUXFG  "writing") , and  return  is  made  to  the  interrupted  program. 
Second,  if  a disk  WRITE  operation  has  just  been  completed,  the  block 
count  BLKCT  (see  sect.  6.1(j))  is  decremented;  the  end  of  acquisition 
flag  ENDFG  is  checked,  and  final  closeout  is  made  if  ENDFG  has  been  set. 
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The  interrupt  service  routine  then  determines  if  a new  disk  track  is 
required.  If  so,  the  disk  SEEK  is  initiated,  the  disk  flag  described 
above  is  updated,  and  return  is  made  to  the  interrupted  program  (or  to 
the  delayed  WRITE  initiating  section,  if  required) . 

(c)  MUX  interrupt  first  obtains  the  MUX  status  word  and 
restarts  the  controller.  The  status  word  is  stored  as  the  updated  MUX 
flag  (MUXFG)  and  compared  to  the  previous  status  word  for  possible 
errors.  Next,  the  disk  storage  holdoff  flag  (HLDFG)  is  checked.  If 
reset,  buffer  transfer  operations  to  the  disk  are  inhibited  and  the 
holdoff  counter  (HLDCT,  see  sect.  6.1  (k))  is  incremented.  If  set,  the 
disk  flag  (DKPFG,  described  above)  is  checked  for  "idle."  If  the  disk 
is  idle,  the  disk  WRITE  command  is  initiated,  the  disk  flag  is  updated, 
and  return  is  made  to  the  interrupted  program.  If  the  disk  is  not  idle, 
the  disk  flag  is  placed  in  "write  deferred"  and  return  is  made  to  the 
interrupted  program. 

8.4  PHAS2.SR  Error  Routine 


The  error  routine  operation  for  PHAS2.SR  is  almost  identical  to 
that  for  PHASl.SR  (see  sect.  7.4).  In  the  present  case,  no  RDOS  system 
calls  (or  errors)  occur.  However,  four  program  errors  are  monitored  at 
present  as  described  below. 

(a)  ERRl — "DISK  ERROR" — 1B15  of  the  disk  status  word  was  set. 

(b)  ERR2 — "DISK  OVERFLOW" — the  maximum  block  transfer  count  was 
reached.  Presently,  this  count  is  2400  256-word  disk  blocks  (that  is, 
100  complete  tracks  on  the  disk) . This  is  a recoverable  error  in  which 
present  data  acquisition  stops,  but  BDACS  control  program  processing  of 
the  data  is  initiated. 

(c)  ERR3 — "MULTIPLEXER  ERROR" — two  consecutive  multiplexer 

status  words  were  identical. 

(d)  ERR4-"INPUT  BUFFER  OVERRUN"— two  adjacent  "deferred  write" 
requests  were  attempted. 

9.  OVERLAY  MODULE — PHAS3.SR 

This  overlay  module  contains  the  part  of  the  BDACS  control  programs 
that  supervises  the  retrieval  and  storage  of  the  HSB  data  gathered 
during  a test  run.  These  data  are  presented  to  the  high-speed  word  of 
the  input  multiplexer  panel  on  an  alternate  set  of  16  parallel  data 
lines,  after  first  being  transmitted  serially  from  the  remote  HSB 
storage  unit  to  the  HSB  receiver  unit  adjacent  to  the  multiplexer 
panels.  An  electronic  switch  controlled  by  point  No.  319  of  the 
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multiplexer  output  panel  selects  this  alternate  set  of  input  data  lines 
when  the  point  on  the  output  panel  is  activated  or  "set."  Alternatively, 
the  switch  selects  the  normal  set  of  input  data  lines  when  the  point  on 
the  output  panel  is  deactivated  or  "reset."  Moreover,  control  of  the 
serial  transmission  of  each  HSB  data  word  is  provided  by  point  No.  320 
of  the  multiplexer  output  panel.  In  particular,  a command  is  initiated 
to  transfer  a new  data  word  when  the  point  on  the  output  panel  changes 
from  "reset"  to  "set."  Following  this  command,  a delay  of  4 ms  is 
required  to  allow  the  data  to  be  transferred  and  recombined  at  the  HSB 
receiver  circuits.  Thus,  PHAS3.SR  must  correctly  control  the  states  of 
both  multiplexer  output  points  No.  319  and  320. 

PHAS3.SR  is  constructed  along  the  same  principles  as  PHAS2.SR 
described  in  section  8.  In  particular,  a special-purpose  interrupt 
service  routine  is  used  to  control  the  multiplexer  controller  operations 
during  the  HSB  data  retrieval  and  storage.  Following  data  retrieval, 
the  standard  RDOS  interrupt  service  routine  is  reinstated.  The  stored 
HSB  data  are  then  transferred  to  the  temporary  disk  data  file  TEMPB.TM 
described  in  section  3.8.  Furthermore,  if  the  final  data  vector  is  to 
be  written  on  magnetic  tape,  the  stored  HSB  data  are  also  transferred  to 
MTO:5,  as  described  in  section  5.1(f). 

As  with  its  predecessors,  PHAS3.SR  is  composed  of  three  parts,  the 
main  (backbone)  code,  the  subroutines  (including  the  interrupt  service 
routine) , and  the  text  strings  and  buffers.  The  main  features  of  these 
units  are  described  below,  and  the  assembly  language  listing  for 
PHAS3.SR  is  shown  in  appendix  A,  section  A-4. 

9.1  PHAS3.SR  Backbone  Code 

The  PHAS3.SR  backbone  code  includes  both  instructions  and 
tables  of  data  used  during  the  execution  of  the  instructions.  Of 
particular  importance  are  the  parameters  used  to  initiate  and  control 
the  operation  of  the  multiplexer  controller. 

(a)  DMUXA  = 000060  initiates  the  controller  to  accept  one  word 
from  the  MUX  input  panel  at  MUX  address  corresponding  to  the  high-speed 
word.  It  is  this  word  which  has  the  alternate  set  of  data  lines  to  the 
HSB  receiver.  At  the  same  time,  the  last  word  on  the  MUX  output  panel 
is  activated.  This  word  contains  output  control  points  No.  319  and  320 
used  to  control  HSB  retrieval  operations. 

(b)  DMUXB  = INPUT-1  contains  the  beginning  of  a two- word  input 
buffer  where  HSB  data  are  initially  deposited. 

(c)  DMUXC  = 140144  allows  the  multiplexer  to  operate  in  the 
LS/HS  mode  at  a 144g-vis  sample  time. 
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(d)  DMUXD  = 077776  contains  the  (negative)  number  of  input 
words  (-2)  received  before  a multiplexer  controller  interrupt  occurs. 

(e)  DMUXE  = INPUT-2  contains  the  running  value  of  (b) • 

(f)  DMUXF  = 077775  contains  the  running  value  of  (d) . 

(g)  DMUXG  = 147777  contains  the  alternate  data  to  (c) . For  the 
present  value,  a 7777  -us  sample  time  is  sufficient  for  the  serial  data 
transmission  from  the  HSB  transmitter  to  the  MSB  receiver. 

(h)  CNTLL  = 137777  contains  the  control  word-pattern  setting 
control  point  No.  319  "on"  2md  point  No.  320  "off." 

(i)  CNTLH  = 037777  contains  the  alternate  control  word  pattern 
to  (h) . The  present  value  allows  the  setting  of  both  point  No.  319  "on" 
and  point  No.  320  "on." 

(j)  INPUT  represents  the  address  of  the  two-word  input  buffer 
area  for  DMA  storage  of  the  incoming  HSB  data. 

The  sequential  tasks  performed  by  the  PHAS3.SR  backbone  code 
are  summarized  below. 

(a)  Reset  the  HSB  output  buffer  pointed  to  by  HSBUF  and  the  MUX 
output  buffer  pointed  to  by  MUXOB. 

(b)  Wait  for  all  TTY  and  disk  operations  to  end,  save  the  RDOS 
interrupt  service  routine  pointer  and  mask,  and  install  the  PHAS3.SR 
interrupt  service  routine  pointer  and  mask. 

(c)  Initialize  the  multiplexer  controller. 

(d)  Send  an  "HS  Buffer  Retrieval"  message  to  the  TTY  console. 

(e)  Start  the  multiplexer  controller,  retrieve  the  HSB  data, 
and  store  the  data  in  the  output  buffer  area  pointed  to  by  HSBUF. 
Continue  operations  until  the  buffer  count  (presently  2048  words) 
reaches  zero. 

(f)  Transfer  the  buffer  to  disk  file  TEMPB.IM  and,  if  the 
magnetic-tape  option  "M"  is  in  effect,  transfer  the  buffer  to  the  tape 
file  MTOiS. 

9.2  PHAS3.SR  Subroutine  Code 

Most  of  the  subroutines  encountered  in  PHAS3.SR  have 
essentially  the  same  structure  as  those  subroutines  described  in  section 
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7.2  for  PHASl.SR.  In  particular,  the  following  subroutines  are  found  in 
PHAS3.SR. 

(a)  CRRFL  creates  a randomly  organized  disk  file  by  using  the 
system  call  .GRAND.  The  first  parameter  contains  a name  pointer  to  the 
name  of  the  file  to  be  created.  If  the  file  already  exists,  the  old 
file  is  deleted  and  a new  file  is  created;  otherwise,  all  system  errors 
cause  a branch  to  the  system  error  routine. 

(b)  DELET  deletes  a file  by  using  the  system  call  .DELET.  It 
is  identical  to  subroutine  DELET  found  in  PHASl.SR  (see  sect.  7.2  (m)). 

(c)  OPFLE  opens  a file  on  an  RDOS  channel  by  using  the  system 
call  .OPEN.  It  is  identical  to  subroutine  OPFLE  found  in  PHASl.SR  (see 
sect.  7.2 (n) ) . 

(d)  CLFLE  closes  a file  on  an  RDOS  channel  by  using  the  system 
call  .CLOSE.  It  is  identical  to  subroutine  CLFLE  found  in  PHASl.SR  (see 
sect.  7.2 (o)) . 

(e)  OPMTA  opens  a magnetic-tape  file  for  free  format  I/O  on  an 
RDOS  channel  by  using  the  system  call  .MTOPD.  It  is  identical  to  OPMTA 
found  in  PHASl.SR  (see  sect.  7.2(y)). 

(f)  MTAWT,  MTASR,  and  MTAEF  provide  free  format  magnetic- tape 
operations  using  the  system  call  .MTDIO.  They  are  identical  to  MTAWT, 
MTASR,  and  MTAEF  found  in  PHASl.SR  (see  sect.  7.2(z),  (aa) , (bb)). 

(g)  RDBLK  reads  a disk  block  from  a file  opened  on  channel 
No.  4 using  the  system  call  .RDB.  It  is  identical  to  the  subroutine 
RDBLK  found  in  PHASl.SR  (see  sect.  7.2(cc)). 

(h)  TMPOT  writes  a series  of  disk  blocks  to  a file  opened  on 
channel  No.  3 using  the  system  call  WRB.  The  beginning  of  the  fiist 
block  corresponds  to  the  beginning  of  the  HSB  output  buffer  pointed  to 
by  HSBUF.  The  number  of  blocks  to  be  written  is  given  by  BLK(?I 
(presently  set  to  eight  blocks  for  the  HSB  output  buffer,  corresponding 
to  2048  words  in  the  buffer) . All  system  errors  cause  a branch  to  the 
system  error  routine. 

(i)  INTSR  contains  the  interrupt  service  routine  for  PHAS3.SR. 
In  this  routine,  only  the  multiplexer  controller  is  enabled  for 
interrupts.  When  a multiplexer  interrupt  occurs,  the  controller  is 
immediately  restarted  (BUSY  is  "set"  and  DONE  is  "cleared") , and  the 
controller  status  is  read  and  checked.  Depending  on  the  status  word 
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flag  IBO , the  data  previously  stored  in  the  input  buffer  (INPUT)  are 
valid  or  invalid.  Thus,  with  IBO  set,  the  data  word  is  invalid  and  is 
not  stored  in  the  HSE  output  buffer.  On  the  other  hand,  with  IBO  reset, 
the  data  word  is  valid  and  is  stored.  In  either  case,  the  alternate 
control  data  word  is  updated  in  the  output  .MUX  buffer,  and  the  alternate 
sample  time  word  is  transmitted  to  the  controller.  A normal  exit  is 
made  from  the  interrupt  service  routine,  except  after  the  storage  of 
last  data  word  of  the  HSB  output  buffer. 

9. 3 PHAS3.SR  Error  Routine 

The  error  routine  for  PHAS3.SR  is  identical  to  that  for 
PHASl.SR  (see  sect.  7.4).  For  the  present  case,  the  error  code  word 
generated  and  stored  in  ERCOD  has  overlay  module  No.  3 coded  in  the 
left-hand  byte.  At  present,  only  a single  program  error  is  detected  by 
PHAS3.SP.. 


ERR1-- ".MULTIPLEXER  ERROR"  — two  consecutive  multiplexer  words 
were  identical. 


10.  OVERLAY  MODULE— PHAS4.  SR 

This  overlay  module  contains  the  part  of  the  control  program  that 
performs  a preliminary  data  reduction  of  the  .MUX  and  LSB  data  gathered 
and  stored  during  the  PHAS2.SR  operation.  These  raw  data  were  acquired 
(sampled)  on  a regular  periodic  basis  as  defined  by  the  sampling  rate 
specified  by  the  BDACS  operator  (see  sect.  4).  As  a consequence  of  this 
periodic  sampling,  the  data  signals  may  have  been  monitored  many  times 
in  the  same  binary  state,  and  much  of  the  sampled  data  may  be  redundant. 
Therefore,  the  main  task  in  PHAS4.SR  is  to  scan  the  collected  data, 
searching  for  changes  in  state  for  the  monitored  signals  (i.e.,  changes 
from  "0"  to  "1"  or  from  "1"  to  "0").  When  a state  change  is  detected 
for  a signal,  the  signal  point  number,  the  new  state,  and  the  time  of 
the  state  change  are  all  written  into  the  BDACS  data  vector  as  a reduced 
data  entry.  This  data  reduction  operation  is  applied  only  to  those 
signals  monitored  with  the  MUX  input  panels  and  the  LSB  unit.  Even 
then,  only  those  signals  which  were  previously  specified  by  the  BDACS 
operator  are  enabled  for  data  reduction  (see  sect.  4) . The  HSB  raw  data 
are  retrieved  and  stored  in  the  data  vector  without  any  reduction,  as 
described  in  section  9. 

During  Jata  reduction,  PHAS4.SR  also  supports  an  error  detection  and 
correction  task.  This  task  is  performed  by  default  unless  the  operator 
specifically  disables  error  detection  and  correction  by  setting  sense 
switch  IBl  on  the  CPU  panel  of  the  BDACS  central  processor  unit.  Error 
detection  is  achieved  by  a hardware  strapping  option  which  codes  an 
address  into  each  word  of  the  input  MUX  panels.  In  particular,  the 


high-speed  word  of  the  input  panel  has  1B16  strapped  "on"  while  the 
remaining  low-speed  words  all  have  1B16  strapped  "off."  Furthermore, 
bits  1B13  through  1B15  of  the  seven  low-speed  words  are  strapped  with  a 
binary  number  pattern  from  one  to  seven.  This  addressing  scheme, 
although  not  the  most  efficient  in  preserving  data  positions  on  the 
input  panels,  retains  the  most  data  positions  for  the  important 
high-speed  word.  When  the  data  words  are  being  reduced,  the  address  of 
the  word  is  checked  for  proper  monitoring  and  storage  sequence.  If 
incorrect  sequencing  is  detected,  an  error  flag  is  se* , and,  if 
possible,  a resequencing  correction  to  the  computed  sample  t is  made. 
However,  if  the  error  appears  too  severe,  data  reduction  is  t "inated, 
and  a branch  to  the  error  routine  is  made. 

As  noted  above,  setting  sense  switch  IBl  disables  error  deteci.on 
and  correction.  For  this  case,  all  bits  of  the  data  words  are 
considered  true  data  and  not  addresses.  Data  reduction  is  performed 
under  the  assumption  that  proper  sequencing  is  maintained. 

As  with  the  previous  overlay  modules,  PHAS4.SP.  may  be  logically 
separated  into  its  backbone  code,  its  subroutine  code,  and  its  text 
string  and  buffer  area.  Each  of  these  regions  is  described  more  fully 
in  the  following  paragraphs.  The  assembly  language  listing  for  PHAS4.SR 
is  shown  in  appendix  A,  section  A-5 . 

10.1  PHAS4.SR  Backbone  Code 


The  sequential  tasks  performed  by  PHAS4.SR  are  given  in  the 
following  list. 

(a)  Clear  the  reduced  data  output  buffer  pointed  to  by  the 
parameter  MTABF. 

(b)  Open  the  raw  data  file  BDACS.DA  on  channel  No.  4.  If  the 
magnetic-tape  "M"  option  is  in  effect,  open  magnetic-tape  file  MT0:6  on 
channel  No.  3.  Otherwise,  create  a random  file  TEKPC.TM,  and  open  the 
file  on  channel  No.  3. 

(c)  Determine  the  initial  sequence  time  at  which  raw  data  were 
stored  by  using  the  data  storage  holdoff  count  HLDCT  (see  sect.  6.1(k)) 
and  the  scunple  rate  SMPRT  (see  sect.  6.1(g)).  Store  the  initial  time  in 
the  buffer  pointed  to  by  TIMER. 

(d)  Determine  the  initial  value  of  the  previous  low-speed  word 
offset  on  the  input  MUX  panels  by  using  the  data  storage  holdoff  count 
HLDCT.  The  word  offset  is  stored  as  PRADD. 

(e)  Read  the  sense  switches.  Branch  to  address  LO  if  IBl  is 
"set"  (i.e.,  if  error  detection  and  correction  are  suppressed); 
otherwise,  branch  to  address  LLl. 
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(f)  Read  and  reduce  the  MUX  and  LSB  raw  data.  Store  reduced 
data  entries  in  the  buffer  area  pointed  to  by  MTABF.  When  the  buffer  is 
full,  transfer  the  buffer  to  the  file  opened  on  channel  No.  3 (i.e., 
either  MT0:6  if  the  magnetic  tape  is  enabled,  or  TEMPC.TM  temporary  disk 
file)  . Continue  until  the  number  of  data  blocks  specified  by  BLKCT  (see 
sect.  6.1 (j))  has  been  reduced. 

(g)  Close  the  files  previously  opened  on  channels  No,  3 and  4, 
and  return  to  the  root  segment  program. 

10.2  PHAS4.SR  Subroutine  Code 

Many  of  the  subroutines  used  in  PHAS4.SR — especially  those 
associated  with  file  I/O  which  use  RDOS  system  calls — are  identical  to 
those  already  described  in  sections  7 and  9 and  will  not  be  repeated 
here.  Other  subroutines  unique  to  PHAS4.SR  are  described  below. 

(a)  INTMR  increments  the  present  value  of  the  sequence  time 
(pointed  to  by  TIMER) . The  incremental  value  is  given  by  the  saitple 
rate  SMPRT.  Typii^ally,  the  subroutine  is  called  from  the  backbone  code 
or  from  the  subroutine  RDBWD  following  the  proper  reduction  of  a 
high-speed  word/low-speed  word  pair.  This  conforms  to  the  actual 
sampling  sequence  which  was  performed  in  the  data  acquisition.  Thus, 
the  contents  of  TIMER  contain  the  elapsed  time  from  start  of  data 
acquisition  to  the  time  the  datum  (currently  being  reduced)  was 
monitored.  In  addition,  INTMR  updates  the  low-speed  buffer  point  number 
(LSPNT) , the  low-speed  buffer  word  mask  (LSWMK) , and  the  low-speed 
buffer  word  offset  (LSOFF) . Again,  in  the  actual  acquisition,  LSB  data 
were  serially  transmitted  with  one  data  bit  every  sample  cycle. 

(b)  RDBWD  reduces  the  data  word  entered  in  accumulator  AGO, 
Upon  entry  to  the  subroutine,  accumulator  AC2  contains  the  offset  from 
the  start  of  the  MUX  reported  points  mask  tcible  associated  with  the 
particular  word.  The  mask  table,  located  in  the  root  binary  segment,  is 
pointed  to  by  MSKTB  and  is  described  in  section  6.2(a).  The  bit 
positions  of  the  data  word  are  first  checked  against  the  corresponding 
positions  in  the  mask  table  to  determine  which  points  are  enabled  for 
data  reduction.  Those  enabled  points  are  then  checked  against  the 
previous  state  values  to  determine  if  a state  change  occurred.  Only  if 
a state  change  occurs  are  the  point  number,  the  new  state,  and  the 
current  sequence  time  (given  by  the  value  of  TIMER)  transferred  to  the 
reduced  data  output  buffer  MTABF.  Reduced  data  transferred  to  MTABF 
consist  of  three-word  entries.  The  first  word  contains  the  point 
number,  the  state,  the  MUX/LSB  flag,  and  the  error  recovery  flag.  The 
point  number  is  in  the  RH  position  and  the  current  state  "0"  or  "1"  is 
in  bit  position  IBO.  If  the  datum  is  an  LSB  signal,  bit  position  IBl  is 
"1";  otherwise,  IBl  is  "0"  for  an  input  MUX  signal.  If  a sequence  error 
was  detected,  bit  position  1B7  is  "1."  The  second  and  third  words  of 
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the  output  buffer  entry  contain  the  DP  binary  value  of  the  current 
sequence  time.  The  output  buffer  can  hold  256  entries  (768  words) . 
When  the  buffer  becomes  full,  the  information  is  transferred  to  the  file 
opened  on  channel  No.  3 (either  MT0:6  or  TEMPC.TM) , and  the  buffer  is 
reset. 


(c)  LSBRD  reduces  data  associated  with  the  LSB.  The  subroutine 
is  called  from  RDBWD  whenever  the  LSB  has  been  enabled  for  monitoring 
(LSMON  is  nonzero,  see  sect.  6.1(i)),  and  whenever  the  high-speed  word 
of  the  input  MUX  panel  is  being  reduced.  Tl-ie  latter  requirement  is 
tested  since  the  LSB  data  are  received  only  on  an  input  point  of  the 
high-speed  word.  Within  the  subroutine,  the  present  LSB  point  number 
contained  in  LSPNT  is  checked  against  the  associated  bit  position  of  the 
LSB  mask  table.  The  mask  table,  located  in  the  root  binary  segment,  is 
pointed  to  by  LSBTB  and  is  described  in  section  6.2(b).  Those  LSB  point 
numbers  which  are  enabled  for  data  reduction  are  then  checked  against 
the  previous  state  value.  If  a state  change  has  occurred,  the  new  state 
and  the  LSB  point  number  (with  IBl  set  to  "1")  is  returned  to  the 
calling  program  (i.e.,  RDBWD). 

(d)  GTBWD  controls  the  retrieval  of  the  raw  data  from  the 
BDACS.DA  file  using  the  system  call  .RDB.  A complete  data  block  of  3072 
words  is  read  to  the  data  input  buffer  pointed  to  by  BUFFR.  The 
individual  data  words  are  then  returned  to  the  calling  program  in 
accumulator  AGO  and  the  buffer  pointer  is  updated  each  time  the 
subroutine  is  called.  When  all  data  have  been  retrieved  (as  determined 
by  the  data  block  count  BLKCT) , a branch  is  made  to  address  DONE  to 
complete  PHAS4.SR  operations.  As  an  added  option  within  this 
subroutine , the  sense  switches  on  the  CPU  panel  are  read  following  the 
retrieval  of  the  current  data  word.  If  sense  switch  1B15  is  "set,"  the 
raw  data  word  is  printed  to  the  TTY  console.  Thus,  the  BDACS  operator 
may  selectively  monitor  the  raw  data  which  were  acquired  during  a test 
run.  This  option  may  be  useful  for  tracing  possible  error  conditions. 

(e)  DMPWD  generates  the  text  string  for  the  printout  of  the 
data  word  just  described.  The  printout  text  consists  of  a set  of  16 
ASCII  binary  numbers  corresponding  to  the  16  bit  positions  of  the  data 
word.  '!*’e  text  string  is  stored  in  a buffer  pointed  to  by  byte  pointer 
DPMoG. 

10.3  PHAS4.SR  Name/Text  Strings  and  Buffers 

The  PHAS4.SR  name  and  text  strings  are  constructed  in  a manner 
similar  to  that  described  in  section  7.3.  The  buffer  areas  used  by 
PHAS4.SR  are  pointed  to  by  the  following  parameters. 

(a)  MTABF  is  768  words  long  emd  is  used  to  hold  the  reduced 
data  output  entries  (256  max)  before  they  are  transferred  to  the  BDACS 
data  vector. 
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(b)  BUFFR  is  3072  words  long  and  is  used  to  hold  a raw  data 
block  previously  written  in  the  BDACS.DA  file  during  data  acquisition. 

10.4  PHAS4.SR  Error  Routine 

The  error  routine  for  P!!AS4.SR  operates  identically  to  that  for 
PHASl.SF.  (see  sect.  7.4).  At  present,  four  program  errors  are  monitored 
as  described  below. 

(a)  ERR1-- "CURRENT  TIME  OVERFLOW" — a double-precision  overflow 
occurred  for  the  numbt r held  in  the  current  sequence  time  TIMER  during 
initial  timer  setup. 

(b)  ERR2-- "CURRENT  TIME  Oi^RFLOW" — a double-precision  overflow 
occurred  for  the  number  held  in  the  current  sequence  time  TIMER  during 
sequential  updating. 

(c)  ERR3— "MAJOR  SEQUENCE  SLIP  OCCURRED"— a noncorrectable 
sequence  error  was  encountered.  An  indeterminate  number  of  sequence 
step  omissions  occurred. 

(d)  ERR4 — "MAX  SEQUENCE  ERROR  COUNT  EXCEEDED" — the  maximum 
permissible  number  of  sequence  errors  was  exceeded  (present  errors  set 
at  100) . 


11.  OVERLAY  MODULE — PHAS5.SR 

This  overlay  module  contains  the  part  of  the  control  program  that 
performs  the  queiry/response  operations  associated  with  the  POSTSCRIPT. DA 
file  and  completes  construction  of  the  BDACS  data  vector.  In  addition, 
PHAS5.SR  provides  the  on-line  data  printout,  if  this  printout  is 
required. 

As  with  the  preceding  overlay  modules,  PHAS5.SR  is  logically  divided 
into  three  main  regions:  the  "backbone"  code,  the  subroutines,  and  the 
ncune/text  strings  and  buffer  area.  These  regions  are  described  in 
detail  in  the  following  paragraphs,  and  the  assembly  language  listing 
for  PHAS5.SR  is  shown  in  appendix  A,  section  A-6. 

11.1  PHAS5.SR  Backbone  Code 

The  PHAS5.SR  backbone  code  is  primarily  a set  of  sequential 
tasks  designed  to  complete  the  BDACS  data  vector  and  generate  the  BDACS 
on-line  printout.  The  main  tasks  are  given  in  the  following  list. 

(a)  C^en  the  console  input  file  ($TTI)  on  channel  No.  2;  create 
the  temporary  file  TEMPD.TM  and  open  this  file  on  channel  No.  3. 
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(b)  Open  the  POSTSCRIPT. DA  file  on  channel  No.  4;  read  the 
postscript  query/statem.ent  lines  and  obtain  the  BDACS  operator  response; 
construct  TEi'iPD.TM. 

(c)  Transfer  TEMPO. TM  to  the  magnetic- tape  file  MTO:7  (if  the 
"m"  option  is  in  effect).  Close  the  files  on  channels  No.  2,  3,  and  4. 

(d)  Open  the  on-line  printout  file  on  channel  No.  2 ( STTO  if 
"T"  option  is  in  effect,  or  $LPT  if  "L"  option  is  in  effect) . 

(e)  Print  the  BDACS  on-line  "header"  information;  print  the 
preamble  and  postscript  information  (obtained  from  TEMPA.TM  and 
TEMPD.TM) ; print  the  "method"  file  which  was  employed  for  the  current 
test  run.  See  figures  3 and  4 for  an  example  of  these  printouts. 

(f)  If  the  HSB  unit  was  enabled,  print  the  MSB  assignment  list 
(obtained  from  ASSIGNA.DA,  see  sect.  33).  Print  the  HSB  data  obtained 
during  the  current  test  run  (obtained  from  TEMPB.TM) . See  figure  5 for 
an  example  of  these  printouts. 

(g)  If  either  or  t)oth  of  the  input  MUX  panels  or  the  LSB  unit 
contain  signals  which  have  been  enabled  for  on-line  printout,  tlien  open 
the  assignment  list  files  ASSIGNS. DA  for  the  MUX  signals  and  ASSIGNC.DA 
for  the  LSB  signals  on  channels  No.  4 and  5,  respectively.  Open  the 
reduced  data  file  on  channel  No.  3 (either  MT0:6,  if  the  "M"  option  is 
in  effect,  or  TEMPC.TM) . 

(h)  Read  the  entries  in  the  reduced  data  file;  construct  a 
printout  line  consisting  of  the  entry  data  and  the  signal  mnemonic 
obtained  from  the  appropriate  assignment  li^t  file;  continue  processing 
the  signals  enabled  for  on-line  printout  until  all  data  entries  have 
been  scanned.  See  figure  6 for  an  example  of  these  printout  lines. 
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Figure  6.  BDACS  on-line  printout  of  MUX  and  LSB  data  lines 
(partial) . 
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Figure  6.  BDACS  on-line  printout  of  MUX  and  LSB  data  lines 
(partial)  (Cont'd). 

11.2  PHAS5.SR  Subroutine  Code 


Many  of  the  subroutines  used  in  PHAS5.SR,  especially  those 
associated  with  file  1/0  which  use  RDOS  system  calls*  are  identical  to 
those  already  described  in  sections  7 and  9 and  will  not  be  repeated 
here.  Other  subroutines  unique  to  PHAS5.SR  are  described  below. 

(a)  GTDAT  retrieves  the  reduced  data  entries  for  the  MUX  or  LSB 
data  previously  stored  during  PHAS4,SR  operations.  Initially,  the 
subroutine  reads  an  entire  block  of  256  data  entries  into  a buffer  area 
pointed  to  by  BUFFR.  As  succeeding  subroutine  calls  are  made,  the 
current  entry  pointer  is  updated  until  all  entries  in  the  buffer  have 
been  scanned.  The  buffer  is  then  refilled  with  new  entries  and  the 
scanning  is  continued.  Upon  exit  from  the  subroutine  accumulator  AC2 
contains  the  pointer  to  the  current  entry  being  processed. 

(b)  OPEN  retrieves  an  assignment  list  entry  from  from  one  of 
the  assignment  files  ASSIGNA.DA,  ASSIGNS. DA,  or  ASSIGNC.DA.  The  first 
parameter  for  the  subroutine  call  contains  th?  point  number  of  the 
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signal  whose  assignment  mnemonii:  text  is  required.  The  second  parameter 
contains  the  pointer  to  the  buffer  containing  part  of  the  associated 
assignment  file.  In  particular,  files  ASSIGNA.DA,  ASSIGNS. DA,  and 
ASSI'^NC.DA  are  read  into  buffer  areas  pointed  to  by  BUFRA,  BUFRE,  and 
BLTRC,  respectively.  These  buffers  are  25e  words  long  and,  thus, 
contain  32  assignment  mnemonic  text  strings,  each  being  8 words  (16 
bytes)  long.  If  the  required  assignment  text  string  is  not  among  t.he 
current  set  of  32  strings  presently  in  the  buffer,  the  subroutine 
performs  a disk-block  read  operation  using  system  call  .RDP  to  retrieve 
the  required  text  string  from  the  appropriate  assignment  file.  A normal 
exit  is  made  from  the  subroutine  with  accumulator  AC2  containing  a byte 
pointer  tc  the  required  text  string  within  the  assignm.er.t  file  buffer. 
An  abnormal  exit  is  made  to  the  error  routine  for  all  system  errors. 

(c)  PRFLE  prints  the  contents  of  an  ASCII  data  file  on  the 
on-line  printout  device.  The  one  parameter  required  for  the  subroutine 
is  the  name  pointer  to  the  ASCII  data  file  to  be  printed.  The  data  file 
is  opened  cr.  RDOS  channel  No.  4;  the  file  is  read  line  by  line,  and  each 
line  is  printed  using  subroutine  PRLNE  (described  next) ; channel  No.  4 
is  then  closed.  No  exceptional  condition  is  explicitly  contained  in 
this  subroutine. 

(d)  PRLNF  is  the  basic  code  for  controlling  and  directing  the 
on-line  printout  for  BDACS . Two  parameters  are  required  for  this 
subroutine.  The  first  parameter  contains  a byte  pointer  to  the  message 
to  be  printed.  The  second  parameter  contains  (in  absolute  magnitude) 
the  number  of  lines  that  the  message  will  require  for  printing.  If  the 
second  parameter  is  a negative  number,  a top-of-form.  operation  is 
performed  before  the  printing.  A maximum  of  30  lines  per  page  may  be 
printed  before  an  automatic  top-of-form  operation  occurs.  The 
subroutine  maintains  a current  line  count  (LNCNT)  and  page  count 
(PGCNT)  , and,  when  a top-of-form,  op>eration  is  performed,  a new  page 
number  is  printed.  Tlie  BDACS  operator  may  suppress  printing  by  setting 
the  sense  switches  on  the  CPU  panel  to  all  "I's."  This  suppression  will 
continue  until  either  the  sense  switches  are  reset  (i.e.,  one  or  more  tc 
"0")  or  until  a programmed  top-of-form  operation  is  initiated.  The 
BDACS  operator  must  then  reapply  the  sense  switches  if  suppression  of 
the  current  phase  of  the  on-line  printout  is  to  continue. 

(e)  CHKPM  determines  if  the  on-line  printout  mask  portion  of 
MUX  or  LSB  mask  tables  contains  on-line  printout  requests.  Two 
parameters  are  necessary  for  this  subroutine.  Tine  first  parameter 
contains  the  points  to  the  mask  table,  either  MFKTB  or  LSETE  for  the  MUX 
or  LSB,  respectively.  The  second  parameter  contains  the  offset  count 
for  the  different  parts  of  the  mask  table  (see  sect.  6.2(a)  and  (b)). 
Upon  entry  to  the  subroutine,  accumulator  ACO  contains  the  on-line 
printout  request  flag,  initially  set  to  zero.  If  any  on-line  printout 
mask  word  in  the  mask  table  is  nonzero  (Indicating  that  at  least  one 
signal  requires  printing) , the  accumulator  ACO  is  incremented. 
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(f)  M\’BYT  transfers  a text  string  from  a ^ource  region  to  a 
destination  region.  The  one  parameter  required  for  this  .sotroutine 
contains  the  maximum  number  of  bytes  to  be  transferred.  Upon  entry  to 
the  subroutine,  accumulators  ACO  and  AC2  contain  the  byte  pointers  tr 
the  destination  text  string  and  the  source  text  string,  respectively. 
Transfer  of  bytes  continuses  until  either  a null  byte  is  detected  in  the 
source  string  or  else  the  maximum  number  of  bytes,  as  specified  by  the 
input  parameter,  has  been  transferred.  Upon  exit  from  the  subroutine, 
accumulator  AC2  contains  the  byte  pointer  to  the  byte  following  the  end 
of  the  destination  text  string. 

fg)  FMSFTJ  creates  an  ASCII  decimal  integer  text  string 
corresponding  to  the  single-precision  unsigned  binary  integer  contained 
in  accumulator  ACO.  Upon  entry  to  the  subroutine,  accumulator  AC2 
contains  the  byte  pointer  to  the  start  of  the  text  area  where  the  string 
is  created.  Leading  zeros  in  the  generated  text  string  are  suppressed 
to  blanks.  Upon  exit  from  the  subroutine,  accumulator  AC2  contains  the 
byte  pointer  to  the  byte  following  the  generated  text  string. 

(h)  FMDPN  creates  an  ASCII  decimal  integer  text  string 
corresponding  to  the  double-precision  unsigned  binary  integer  contained 
in  accumulators  ACO  and  ACl . The  operation  is  similar  to  that  in  FMSPN. 

(i)  MTAIN  performs  a magnetic-tape  free  format  "read"  operation 
from  the  m.agnetic-tape  file  opened  on  channel  .Vo.  3.  The  single 
parameter  required  by  the  subroutine  contains  an  address  to  branch  to 
when  an  "end-of-file " is  detected.  The  data  are  transferred  to  the 
buffer  pointed  to  by  BUFFR  in  blocks  of  768  words  each.  Except  for 
"end-of-file,"  all  system  errors  cause  a branch  to  the  system  error 
routine . 


(j)  TMPIN  retrieves  a block  of  data  from  the  disk  file  opened 
on  channel  No.  3.  The  single  parameter  required  by  this  subroutine 
contains  an  address  to  branch  to  when  an  "end-of-file"  is  detected.  The 
data  are  transferred  to  the  buffers  pointed  to  by  BUFFR  in  blocks  of  768 
words  each.  Except  for  the  "end-of-file,"  all  system  errors  cause  a 
branch  to  the  system  error  routine. 

11.3  PHAS5.SR  Ncime/Text  Strings  and  Buffers 

The  PHAS5.SR  name  and  text  strings  are  constructed  in  a n^anner 
similar  to  that  described  in  section  7.3.  Particular  strings,  unique  to 
FHAS5.SR,  are  those  used  for  "headers"  and  standard  line  formats  for  the 
on-line  printout.  The  buffer  areas  used  by  PHAS5.SR  are  pointed  to  by 
the  following  parameters. 

(a)  UTBPT  defines  a region  of  68  words  used  for  utility  byte 
transfer  operations. 
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(b)  BUFRA  is  divided  into  two  parts.  The  first  part  contains  a 
256-word  data  storage  area.  The  second  part  is  a three-word  buffer 
"header,”  which  has  a negative  offset  from  BUFRA.  The  first  word  of  the 
"header"  (at  offset  -3)  contains  the  starting  signal  point  number  for 
the  HSB.  The  second  word  of  the  "header"  (at  offset  -2)  contains  the 
RDOS  channel  number  (in  the  RH  part)  and  the  I/O  block  count  (in  the  LH 
part)  associated  with  the  HSB  assignment  file  (ASSIGNA.DA) . The  third 
word  of  the  "header"  (at  offset  -1)  initially  contains  177777.  During 
PHAS5.SR  operation,  this  word  will  contain  the  block  number  of  the 
current  ASSIGNA.DA  block  contained  in  the  data  part  of  the  buffer.  This 
current  block  number  is  updated  under  control  of  subroutine  OPEN  (see 
sect.  11.2(b)). 

(c)  BUFRB  is  similar  to  BUFRA,  except  that  the  present  buffer 
is  associated  with  the  MUX  assignment  file  (ASSIGNB.DA) . 

(d)  BUFRC  is  similar  to  BUFRA,  except  that  the  present  buffer 
is  associated  with  the  LSB  assignment  file  (ASSIGNC.DA) . 

(e)  BUFFR  contains  a data  area  sufficient  to  hold  256  LSB  or 
MUX  reduced  data  entries  (presently  768  words) . Entry  blocks  of  this 
size  are  read  into  the  buffer  either  from  magnetic-tape  file  MT0:6  (if 
the  "M"  option  is  in  effect)  or  from  disk  file  TEMPO. TM,  under  control 
of  subroutines  MTAIN  or  TMPIN,  respectively  (see  sect.  11.2(1)  and  (j)). 

11.4  PHAS5.SR  Error  Routine 

The  error  routine  for  PHAS5.SR  operates  identically  to  that  for 
PHASl.SR  (see  sect.  7.4).  At  present,  four  program  errors  are 
monitored: 

(a)  ERRl — "ASSIGN  FILE  READ  ERROR  OCCURRED"— a system  error 
occurred  during  the  "read"  operation  in  subroutine  OPEN  (see 
section  11.2 (b) ) . 

(b)  ERR2— "ASSIGN  FILE  SEQUENCE  ERROR  OCCURRED"— the  signal 
point  number  for  a requested  assignment  file  text  string  was  less  than 
the  starting-signal  number  specified  in  the  "header"  of  the  associated 
assignment  file  buffer  (see  sect.  11.3(b)). 

(c)  ERR3 — "LINE  COUNT  ERROR" — the  updated  line  count  in 
subroutine  PRLNE  is  negative. 

(d)  ERR4— "MUX  OR  LSB  POINT  # OUT  OF  BOUNDS"— the  signal  point 
number  contained  in  a MUX  or  em  LSB  reduced  data  entry  is  less  than  the 
starting-signal  point  number. 
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12.  OVERLAY  MODULE  ERMSG.SR 


This  overlay  module  contains  the  part  of  the  control  program  that 
performs  an  orderly  closing  of  BDACS  functions  and  returns  control  to 
the  RDOS-CLI.  The  overlay  module  can  be  entered  from  the  root  binary 
segment  in  one  of  two  modes.  The  "normal"  mode  is  entered  when  all 
BDACS  control  tasks  have  been  successfully  performed  and  a normal  exit 
has  been  made  from  the  preceding  overlay  modules.  Under  these 
conditions,  the  error  code  word  (ERCOD,  see  sect.  6.1(d))  contains  zero 
as  a flag  to  immediately  branch  to  the  address  NORML  in  ERMSG.SR. 
Closeout  is  then  achieved  by  performing  the  following  tasks. 

(a)  Reset  all  RDOS  channels  using  the  system  call  .RESET. 

(b)  Release  the  magnetic-tape  drive  using  the  system  call  .RLSE. 
Ignore  any  system  errors,  since  the  magnetic  tape  may  not  have  been 
initialized. 

(c)  Return  to  the  CLl  by  using  the  system  call  .RTN. 

The  "exceptional"  mode  of  entering  ERMSG.SR  occurs  when  an  error  has 
been  detected  during  the  operation  of  an  earlier  overlay  module.  The 
error  code  word  (ERCOD)  contains  the  error  code  as  described  in 
section  7.4. 

Two  types  of  errors  are  recognized;  program  and  system.  For  a 
system  error,  ERCOD  contains  177777  as  a flag,  and  the  recovery 
parameter  (RECOV,  see  sect.  6.1(b))  contains  the  system-generated  error 
code.  Closeout  during  a system  error  condition  is  achieved  in  a manner 
similar  to  that  described  in  (a) , (b) , and  (c)  above  for  "normal" 
closeout.  However,  instead  of  an  exit  to  the  CLI  by  the  normal  return 
(i.e.,  .RTN),  for  the  present  situation  the  system  error  code  from  RECOV 
is  retrieved  and  stored  in  accumulator  AC2,  and  return  is  made  to  the 
CLI  using  the  system  call  .ERTN. 

When  a program  error  occurs,  ERCOD  contains  the  program  error  code 
as  described  in  section  7.4.  For  this  case  the  following  tasks  are 
performed  within  ERMSG.SR. 

(a)  Decompose  the  program  error  code  into  the  modu.’.**  number  and 
error  number;  determine  the  error  message  byte  pointer  associated  with 
the  error  nvunber  and  the  recoverable  error  bit. 

(b)  Type  the  module  message  to  the  output  console; 

"ERROR  IN  PHASE  n" 
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where  n is  replaced  by  the  overlay  module  number  in  which  the  error 
occurred. 

(c)  Type  the  error  message  describing  the  associated  error  number. 
These  messages  are  discussed  in  the  preceding  sections  describing  the 
different  overlay  modules. 

(d)  Determine  if  a recoverable  error  occurred  by  checking  the 
recoverable  error  bit  processed  in  (a)  above.  If  the  error  is 
recoverable,  return  to  the  root-binary  segment.  Otherwise,  close  out 
the  BDACS  control  program  in  the  "normal"  mode  as  described  above. 

The  tables  that  are  used  in  ERMSG.SR  are  described  below. 

(a;  TBLPT  contains  a list  of  pointers  to  the  beginning  of  the 
message  pointer  tables.  One  such  message-pointer  table  is  associated 
with  each  of  the  preceding  overlay  modules  (i.e.,  PHASl , PHAS2,  PHAS3, 
PHAS4,  PHAS5) . 

(b)  PHASl  contains  a list  of  error-message  pointers  for  overlay 
module  PHASl. SR.  A one-to-one  correspondence  exists  between  these 
error-message  pointers  and  the  error  table  entries  described  in 
section  7.4. 

(c)  PHAS2,  PHAS3,  PHAS4 , and  PHAS5  are  similar  to  PHASl  but  are 
associated  with  overlay  modules  PHAS2.SR,  PHAS3.SR,  PHAS4.SR,  and 
PHAS5.SR,  respectively.  Note:  If  bit  IBO  is  set  to  "1"  for  any  message 
pointer,  the  associated  error  is  considered  "recoverable"  and  is 
processed  as  described  in  (d)  above. 

The  error  messages  are  RDOS  ASCII  text  strings  with  mode  1 packing. 
The  assembly  language  listing  for  ERMSG.SR  is  shown  in  appendix  A, 
section  A-7. 

13.  CONTROL  PROGRAM  SYSTEM  PARAMETERS— BDACS . SR 

This  file  contains  those  BDACS  control  parameters  which  may  be 
modified  or  extended  as  the  BDACS  hardware  system  is  changed  or 
augmented  to  meet  future  requirements.  As  mentioned  in  section  2, 
3DACS.SR  should  be  assembled  along  with  the  appropriate  root  binary 
segment  or  overlay  module  files  to  reflect  the  present  value  of  these 
system  parameters.  A brief  description  of  these  parameters  along  with 
their  present  value  (in  octal)  is  given  below,  while  an  assembly 
language  listing  for  BDACS. SR  is  given  in  appendix  A,  section  A-8. 

(a)  MOP=000401  provides  a mnemonic  "no  operation"  instruction 
(i.e.,  JMP  .+1).  This  parameter  is  not  expected  to  change  if  the  system 
is  augmented. 

SO 


(b)  CLK=054  contains  the  RTC  device  interrupt  code.  Note:  this 

clock  interrupt  code  is  not  the  standard  RDOS  code. 

(c)  MUX=032  contains  the  multiplexer  controller  device  interrupt 
code  which  is  hardwire  strapped  at  the  controller. 

(d)  MUXOB=000300  contains  the  output  multiplexer  panel  buffer 
address.  This  address  is  hardwire  strapped  within  the  multiplexer 
controller . 

(e)  1MCLK=000004  contains  the  interrupt  mask  bit  for  t'r.'  PTC. 

(f)  1MMUX=001000  contains  the  interrupt  mask  bit  for  the 
multiplexer  controller. 

(g)  IMDKP=000400  contains  the  interrupt  mask  bit  for  the 
moving-head  disk  controller. 

(h)  BDACA=200  contains  the  number  of  signal  points  located  on  the 
input  MUX  panels  (126  decimal) . 

(i)  BDACB=100  contains  the  number  of  signal  points  located  on  the 
output  MUX  panel  (64  decimal) . 

(j)  BDACD=144  contains  the  starting  cylinder  (track)  number  for  the 
BDACS  raw  data  file  BDACS.DA  (see  sect.  3.6). 

(k)  BDACE=144  contains  the  number  (100  decimal)  of  complete 
cylinders  used  for  file  BDACS.DA.  Thus,  the  size  of  this  file  is  2400 
disk  blocks.  This  size  should  be  reflected  in  the  UFT  entry  of  the  RDOS 
system  directory  SYS, DR  and  in  the  RDOS  map  directory  MAP. DR.  If  a full 
initialization  of  the  BDACS  disk  cartridge  is  required,  the  BDACS 
operator  must  insure  that  this  file  information  is  properly  supplied 
(e.g.,  by  using  the  RDOS  disk  editor  DSKED.SV) . 

(l)  BDACF=1  contains  the  minimum  or  starting  input  MUX  panel  signal 
number . 

(m)  BDACG=200  contains  the  maxium  or  last  input  MUX  panel  signal 
number  (128  decimal) . 

(n)  BDACH=401  contains  the  minimum  or  starting  output  MU.X  panel 
signal  number  (257  decimal)  . 

(o)  BDACI=476  contains  the  maximum  or  last  output  MUX  panel  signal 

number  (318  decimal).  Note:  this  number  does  not  include  the  twc 

special-purpose  control  points  No.  319  and  320  used  to  control  KSP 
data-retrieval  operations  (see  sect.  9). 
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(p)  BDACJ=200  contains  the  maximum  number  of  entries  in  the  output 
control  list  (128  decimal) . 

(q)  BDACK=03  contains  the  number  of  words  per  entry  in  the  output 
control  list. 

(r)  BDACL=03  contains  the  number  of  words  per  entry  in  the  MUX  and 
LSB  reduced  data  file  entry. 

(s)  BDACM=6000  contains  the  number  of  words  per  data  block  used 
during  data  acquisition  and  reduction  (3072  decimal) . 

(t)  BDACN=144  contains  the  maximum  number  of  sequence  errors 
allowed  (100  decimal) . 

(u)  BDACO=4000  contains  the  number  of  words  in  the  HSB  unit  (2048 
decimal) . 

(v)  BDACP=200  contains  the  number  of  signal  points  located  on  the 
LSB  unit  (128  decimal) . 

(w)  BDAC^l  contains  the  minimum  or  starting  signal  number  for  the 

LSB. 

(x)  BDACR=200  contains  the  maximum  or  last  signal  number  for  the 
LSB  (128  decimal) . 

(y)  BDACS=1  contains  the  minimum  or  starting  bit  number  for  the  HSB 
unit. 

(z)  BDACT=20  contains  the  maximum  or  last  bit  number  for  the  HSB 

unit  (16  decimal).  Note;  the  number  of  bits  per  word  in  the  HSB  cannot 
be  changed  from  the  present  value  of  20g  (16  decimal)  without  major 
changes  in  the  overlay  module  responsible  for  HSB  data  retrieval. 

(aa)  BDACU=60  contains  the  minimum  MUX  saitple  rate  (in  ps,  50 

decimal) . 

(bb)  BDACV=7777  contains  the  maximum  MUX  sample  rate  (in  us,  4095 
decimal) . 

(cc)  BDACW=764  contains  the  minimum  HSB  sample  rate  (in  ns,  500 

decimal) . 

(dd)  BDACX=23420  contains  the  maximum  HSB  sample  rate  (in  ns,  10,000 
decimal) . 

(ee)  BDAC1=10  contains  the  number  of  16-bit  input  MUX  words  (8 

decimal) . 
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(ff)  BDAC2=4  contains  the  number  of  16-bit  output  MUX  words  (4 
decimal) . 

(gg)  BDAC3=10  contains  the  number  of  16-bit  LSB  words  (8  decimal). 

(hh)  BDAC5=600  contains  the  number  of  words  required  for  the  MUX 
output  control  list  buffer  (384  decimal) . 

(ii)  BDAC6=20  contains  the  number  of  words  offset  between  the  start 
of  the  MUX  or  LSB  mas)c  table  and  the  on-line  printout  part  of  the  table 
(16  decimal) . 

(jj)  BDAC7=7  contains  the  number  of  input  MUX  low-speed  words  (7 
decimal) , 

()c)c)  BDAC8=3000  contains  the  number  of  high-speed/low-speed  word 

pairs  per  raw  data  block  (1536  decimal) . 

(11)  BDAC9=1400  contains  the  number  of  words  in  the  MUX  and  LSB 

reduced  data  block  (768  decimal). 


14.  RECOMMENDATIONS  FOR  FUTURE  SOFTWARE  AUGMENTATION 

A major  shortcoming  of  the  present  BDACS  control  program  is  the 
inability  of  the  program  to  provide  a real-time  analysis  of  and  response 
to  the  incoming  data  during  data  acquisition.  Presently,  the  control 
functions  to  be  provided  by  the  program  are  prearranged  and  occur 
independently  of  the  data  being  monitored. 

It  is  possible  to  provide  real-time  data  analysis/response  for 
BDACS.  However,  several  basic  adjustments  and  changes  to  the  BDACS 
software  package  would  be  required.  These  changes  are  outlined  in  the 
following  paragraghs. 

(a)  Presently,  during  PHAS2.SR  data  acquisition  and  control, 
program  control  switches  between  the  interrupt  service  routine  (when  a 
device  interrupt  occurs)  and  the  control  loop  which  continually  monitors 
and  updates  the  control  output  list  for  the  next  control  point  change 
(see  sect.  8.2  and  8.3).  If  the  real-time  analysis/response  option  is 
to  be  implemented,  then  an  additional  branch  must  be  provided  to  the 
program  code  controlling  this  analysis/response  action. 

(b)  A specific  example  and  possible  implementation: 

EXAMPLE 
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•Allow  a single  low-speed  word  to  be  available  for  analysis. 
Thus,  the  individual  bits  or  a pattern  of  several  bits  in  combination 
within  this  word  will  be  recognized  as  a request  for  specific  control  or 
response  actions. 

• Let  the  IBO  bit  for  the  word  be  strapped  as  a "1."  Thus, 
when  the  word  is  monitored  and  stored  in  the  memory  buffer,  bit  IBO  will 
be  set. 


•Provide  a circular  buffer  pointer  which  will  point  to  the 
current  word  to  be  analyzed  and,  upon  updating,  will  point  to  the 
succeeding  word. 

• When  a current  word  has  been  retrieved  for  analysis,  the 
storage  area  in  memory  will  be  reset. 

• With  the  current  word  as  data,  a branch  is  made  to  the 
analysis/response  control  subroutine  for  appropriate  action.  Upon 
return  from  this  subroutine,  a control  loop  is  entered  and  scanning  is 
continued  until  the  word  is  again  monitored  and  becomes  "set." 

• The  interrupt  service  routine  would  be  essentially  unchanged, 
except,  upon  exit  from  the  RTC  service,  a special  branch  to  the 
predefined  control  operations  control  loop  would  be  made.  The  exit 
would  then  be  from  this  loop  to  the  control  loop  specified  abov'e . 

(c)  In  the  example,  timing  considerations  must  be  made  to  insure 
proper  operation.  In  particular,  the  analysis/response  subroutine  must 
be  efficiently  constructed  so  that  the  words  to  be  analyzed  do  not 
"stack  up."  This  condition  may  also  require  the  minimum  allowable 
sample  rate  to  be  longer  than  the  present  minimum  (50  ys) . 

(d)  The  particulars  of  the  analysis/response  subroutine  depend  in 
detail  upon  the  specific  real-time  control  tasks  to  be  performed.  These 
tasks  may  possibly  change  from,  test  to  test  and,  if  this  occurs,  either 
several  control  programs  must  be  individually  assembled  and  linked  or 
several  separate  PHAS2.SR  types  of  overlay  modules  must  be  assembled  and 
linked  in  a universal  control  program.  If  the  latter  choice  is  made, 
additional  provisions  must  be  made  in  the  root-binary  segment  of  the 
universal  control  program  to  choose  one  of  the  several  rHAS2.SR  overlay 
modules  to  load  in  at  runtime. 

(e)  One  final  modification  to  the  present  control  program  may  be 
required.  Presently,  the  BDACS  control  program  resides  in  memory  with 
the  RDOS  executive  program.  The  controlling  factor  in  the  expansion  of 
the  BDACS  control  program  is  primarily  the  size  of  the  PHAS2.SF.  overlay 
module,  since  this  module  contains  the  twin  data  hlocks--each  COOOg 
words  in  length.  If  the  PHAS2.SR  module  must  he  qreatly  expanded  to 
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include  the  analysis/response  subroutine  code,  an  incompatibility  may 
arise  in  which  the  core  storage  is  insufficient  to  contain  both  the 
BDACS  control  program  and  RDOS  executive  program.  Since  PHAS2.SR  does 
not  require  any  RDOS  system  calls,  if  this  incompatibility  arises,  the 
executive  program  can  be  temporarily  transferred  to  disk,  and  the  core 
storage  used  by  the  executive  may  be  made  available  to  the  control 
program.  Before  an  exit  from  PHAS2.SR,  the  executive  program  would,  of 
course,  be  returned  to  core  storage.  If  this  action  is  necessary,  it  is 
recommended  that  tracks  No.  201,  202,  and  203  (decimal)  on  the  disk  be 
reserved  in  the  RDOS  MAP. DR  for  the  executive  program  storage. 


55 


APPENDIX  A. — ASSEMBLY-LANGUAGE  LISTING  FOR  BDACS  CONTROL  PROGRAM 

This  appendix  contains  the  assembly-language  listing  for  the  BDACS 
control  program.  The  control  program  is  composed  of  a root-binary 
section,  six  overlay  modules,  and  a table  of  system  parameters.  Each  of 
these  parts  is  presented  in  the  following  sections  of  the  appendix. 


Section 

A-1. 

ROOT  BINARY  SECTION — MONTR.SR 

Page 

58 

A-2. 

OVERLAY 

MODULE 

NO.  1— PHASl.SR 

60 

A-3. 

OVERLAY 

MODULE 

NO.  2— PHAS2.SR 

76 

A-4. 

OVERLAY 

MODULE 

NO.  3— PHAS3.SR 

81 

A-5. 

OVERLAY 

MODULE 

NO.  4— PHAS4.SR 

87 

A-6. 

OVERLAY 

MODULE 

NO.  5— PHAS5.SR 

98 

> 

1 

OVERLAY 

MODULE 

NO.  6— ERMSG.SR 

118 

A-8. 

BDACS  SYSTEM  PARAMETERS-- BDACS . SR 

122 
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A-1.  Root  Binary  Section — MONTR.SR 
N4NF  5lOC<  MA‘1E=  MONTR.SR 


TIMF  BL0C^ 


.t ITl  MONTR  ; JCI  6 FEb  76 
.TXTM  1 

.FNT  avRTN  MAGFG  SMPRT  BLKCT  HLOCT 

.ENT  MSKTb  CTLTE  ERRTN  ERCQD  HSMON 

.ENT  LSMON  LSbTb  PRINT  RECDV 

.ENT  MErtPT  HEBPT 

.EXTN  JVSn  DVSTi  LVST3  OVSTA  OVST5 


.EXTN 

U V S T 6 

.ZREL 

C ; h T N : 

r 

TOVFRLAY  RETURN  At'DRS 

K C U V ! 

0 

;RECUVERA3LE  ERROR  RETURN 

e-(KTN: 

ERROR 

terror  return 

ERCOO; 

U 

TERROR  CODE 

MTGTG: 

C 

TVAG  TAPE  FLAG 

p' int: 

r 

tprint  flag 

S T PR  T : 

r 

,'SAVPLE  RATE 

nS"LN: 

G 

THS  buffer  flag 

lSmon: 

0 

TLS  BUFFER  MONITOR 

B-KCT: 

EOACE-’b 

TDATA  BLOCK  COUNT 

h.LCT; 

0 

* 3 Z 

THCLDOFF  COUNT 

M ? K T b : 

\ "i  Z m 

.3u< 

60AC 1 *3 

TDATA  INPUT  MASK  BITS 

L T 5 T 6 : 

.BlR 

0 

B 0 A C 3 R'  3 

TLS  BUFFER  TABLE 

C'LTB: 

.3  LR 

BOAC  S*3 

tcontrol  list  table 

.j  V J 'A  P : 

0 

Tjverlay  jump  address 

u J L i D : 

LJ  A 

0,0,3 

TNCDE/RFGION 

I ‘.C 

3,3 

i ' f. 

i , 0 , J 

TSTART  AUDRS 

1 ■■  C 

3,3 

' 

S'  A 

?,  OV JMP 

TJvjMP  ADDRESS 

S'A 

i,OVPTN 

A^C 

1 , 1 

TUNCONDITIDNAL  LOAD 

. S VS  TM 
. 0 V IJ  O' 

7 

TLCAC  IN  OVERLAY 

JVP  i, 

ERRTN 

terror 

JV  P i) 

OV  JM? 

tenter  .'VERlAY 
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START: 

LDA 

C,3tNAH 

; 'MDMR  .OL  • 

•S YSTM 
.3V0PN 

7 

;CPEN  OVERLAY  FILE 

P ^ 

ERRIN 

i E RRuR 

JbR 

DYLOO 

;lija[,  oLci 

0 

OVSTl 

{START  A00R5 

jSR 

CVLOD 

1 

G>/ST2 

{LOAD  DLA2 

{START  AODRS 

JSR 

LWLJD 

2 

DVST3 

{LOAD  DLA3 

{START  ADORS 

JSR 

OVLOO 

3 

DVSTA 

{LOAD  OLAA 

{START  ADDRS 

JSR 

0VL3D 

{LOAD  DLA5 

DYSTS 

{START  ADORS 

error: 

LD  A 

O.ERCCD 

{ERROR  CODE 

CO'1  » 

0,0, SIR 

{SKIP  IF  system  error 

L5A 

2,0VRTN 

{SET  UP  RECOVERABLE  RETURN 

5TA 

2,RECCV 

{HOLD  RECOVERY  ADDRS  DR  SYSTEM 

JSR 

UVLIjC 

{LOAD  CLA6 

> 

0VST6 

{START  ADDRS 

hA  L T 

. + 1 - 2 
.TXT 

/YONTR. 

OL/ 

ME  wPT  = 

. 

{ME-'HOD  FILE  WORD  POINTER 

M-EPT= 

.-2 

.3L< 

7 

{METHOD  FILE  NAME  POINTER 

.END 

START 

FRRL.R 
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A-2.  Overlay  Module  No.  1 — PHASl.SR 
NAHE  8L3CK  NftME*  PHAil.SR 

TIME  BljCK 


T ITL 

PHASl 

;jci 

19 

FEB 

76 

TXTM 

1 

ENT 

avsTi 

EXTD 

EXTD 

HAGFG 

HSHDN 

SMPRT 

LSMGN 

OVRTN 

PRINT 

ERRTN 

ERCOO 

EXTN 

MSKTB 

lsbtb 

CTLTB 

MEWPT 

MEBPT 

NREl 

PNTR  1 : 

MSKTB 

{REPORTED  POINTS  TABLE  POINTER 

CNTR  1 ; 

BOACl *3 

{TABLE  SIZE 

PNTRL: 

LSBTB 

{LS  BUFFER  TABLE  POINTER 

CNTRL: 

BDACS^a 

{TABLE  SIZE 

O'^AOB: 

MJX33 

{MUX  OUTPUT  BUFFER  POINTER 

cntrb: 

BOACB 

{OUTPUT  BUFFER  LENGTH 

SWCHD  : 

0G0030 

{DEFAULT  switches  LtM 

S«(CHL  : 

000020 

{SWITCH  'L' 

S^CHm; 

000010 

{SWITCH  'M' 

SKHT : 

013000 

{Switch  'T' 

S^LDO: 

5PL0S 

{DISABLE  SPOOLING 

QJFLC: 

DPFLE 

{OPEN  A CHANNEL 

C. FLO: 

CLFLE 

{CLOSE  A CHANNEL 

inmto: 

INMTA 

{INITIALIZE  MTO 

roluq: 

RDLJT 

{READ  INTI  UTILITY 

ROSUO: 

ROSUT 

{READ  SEQUENTIALLY 

Mvwuo: 

MV.JJT 

{MOVE  WORDS  FROM  UTILITY 

C-<NBO: 

CkNBR 

{CHECK  A A 

3/ST  1 ! 

AOC 

0,0 

{FORCE  -1 

L3A 

2,0MAG6 

{OUTPUT  BUFFER  POINTER 

STA 

0,0,2 

{RESET  OUTPUT  BUFFER 

I SC 

2,2 

OS  1 

CNTRB 

j''  P 

.-3 

SJP 

0,0 

{CLEAR  AC3 

LO  A 

2 , PNTR I 

{INPUT  DATA  MASK  TABLE 

STA 

0,0,2 

{CLEAR  THE  TABLE 

INC 

2,2 

OS  2 

CNTR  I 

j«  P 

.-3 

lsa 

2 , PNTRl 

;LS  BUFFER  MASK  TABLE 

S*  A 

0,0,2 

{CLEAR  THE  TABLE 

1 'iC 

2,2 
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3SZ 

CNTRl 

4'^P 

.-3 

JSR  a 

SPLDO 

fOlSABLE  SPOOLING 

NAMtP 

; ' $TTD' 

JSR  a 

SPLOO 

IDISABLE  SPOOLING 

NAMED 

f'SLPT* 

JSR  a 

OPFLO 

NAMEF 

JDPEN  $TTD 

01 

;0N  CH#1 

JSR  a 

OPFLO 

NAHEA 

;OPEN  COM. CM 

OA 

;0N  CHRA 

JSR  a 

ROL  JO 

;REA0  'MONITOR* 

JSR  a 

ROSUO 

TREAD  GLOBAL  SWITCHES 

OA 

fA  bytes 

JSR  a 

MVWUO 

{MOVE  THE  SWITCHES 

MAGFO 

;T0  ROOT  BINARY 

OZ 

;2  WORDS 

JSR  a 

RDLUO 

TREAD  METHOD  FILENAME 

JSR  a 

MVWUO 

TMOVE  THE  FILENAME 

MEWPT 

TTD  NAME  AREA  IN  ROOT  BINARY 

07 

T7  WORDS  (MAX) 

JSR  a 

CLFLO 

OA 

TCLOSE  CH«A 

LDA 

O.MAOFG 

TGLOBAL  SWITCH  UL 

LDA 

1 tPRlNT 

TGLDBAL  SWITCH  «2 

ADO  U 

1 ,0,SNR 

TSKIP  IF  SWITCHES  PRESENT 

LOA 

O.SWCHD 

Tust  default  switches 

LDA 

Z.SWCHM 

TSWITCH  MASK  'M' 

AND 

0,2 

TMASK  FOR  MAG  TAPE 

STA 

2,NAGFG 

TSET  MAG  TAPE  FLAG 

LDA 

2, SWCHL 

TSWITCH  MASK  'L' 

AND  n 

2,0, SNR 

TSKIP  IF  $LPT  REQUIRED 

JHP 

. + 3 

SUBZL 

0,0 

TFORCE  1615 

JMP 

.♦A 

LOA 

0,5WCHT 

TSWITCH  MASK  'T • 

AND 

I ,0,SZR 

TSKIP  IF  NO  $TTD  REQUIRED 

SUBZR 

0,0 

TFORCE  160 

STA 

0, PRINT 

TSET  PRINT  FLAG 

LOA 

C,MAGFG 

TMAG  TAPE  FLAG 

MOV  n 

0,0, SZR 

TSKIP  IF  NO  MAG  TAPE 

JSR  a 

INMTO 

UNITIALIZE  MTO 

JSR  a 

OPFLO 

TOPEN 

HEBPT 

T METHOD  FILE 

OA 

TON  CHAA 

JSR  a 

ROLUO 

tread  IDENTIFICATION 

JSR  a 

ROLUO 

TREAD  SAMPLE  RATE 

LOA 

2,UTBP1 

TUTILITY  BYTE  POINTER 

JSR  a 

GTSPl 

tform  sp  n 

JSR  a 

CKNBO 

TCKECK  SR 

ERRIO: 

BOACU 

TLOWER  BOUND 

BOACV 

TUPPER  BOUND 

STA 

0,SMPRT 

TSTORE  IN  ROOT  BINARY 

JSR  a 

ROLUl 

TREAD  DURATION  TIME 

f 
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LD  A 

i.UTbPl 

;UT ILITY  BYTE  POINTER 

JSR 

A 

&TDP1 

;FCFM  DP  H 

jT  A 

0, DURAT 

;hglo  The  « 

ST  A 

l.DJRAI* 

1 

jSR 

a 

RDLUl 

.•READ  HS  BUFFER  FLAG 

LDA 

2,UTBP1 

lUTlLITY  BYTE  POINTER 

JSR 

2 

OTSPI 

;FORM  SP  » 

MJV 

4 

Cl  t 0 f S NR 

{SKIP  IF  NOT  0 

JM  P 

JP9 

JSR 

ai 

CKN80 

jChECK  hSB  SR 

E'lRW: 

BDACW 

‘.LOWER  BOUND 

SOACX 

‘.UPPER  BOUND 

S^A 

u.hsmun 

{STTRE  IN  ROOT  BINARY 

JSR 

ii 

GT8Y1 

JGET  NEXT  BYTE 

LOA 

1 ,ASCAK 

K «'  > 

SJB 

2,2 

{CLEAR  AC2 

SjBZ 

J,  1 ,SNR 

{SKIP  IF  NOT  <*> 

M3VR 

2,2 

{SET  IBO 

LOA 

O.HSMLN 

{HS  BUFFER  FLAG 

AJD 

2,0 

{ADD  IN  PRINT  FLAG 

ST  A 

0,HSMuN 

j?9: 

JSR 

ij 

RDL  J1 

{READ  LS  BUFFER  FLAG 

LDA 

2, UTbPl 

{wTIlITY  BYTE  POINTER 

JSR 

a) 

GT5P1 

{FuRM  SP  « 

JSR 

a) 

CRNP  1 

{CHECK  THE  ff 

ERRl  1 : 

BOACF 

{LUftER  BOUND 

BCAC  F*1 7 

{OFFER  BOUND 

STA 

0,LSMDN 

{STORE  IN  ROOT  BINARY 

JSR 

TABLE 

{CONSTRUCT  MONITOR  POINT 

TABLE 

MSKTB 

{TABLE  POINTER 

BOAC  A 

{LIST  SIZE 

B0AC1*2 

{OFFSET  SIZE 

JSR 

TABLE 

{CONSTRUCT  LS  BUFFER  TABLE 

LSBTB 

{TABLE  POINTER 

BCACP 

{LIST  SIZE 

BuAC3‘-'2 

{OFFSET  SIZE 

JMP 

JPO 

{CONTI NUE 

T 3 R T ; 

u 

{RETURN  ADDRS 

r3 PNT  : 

J 

{TABLE  POINTER 

raisz: 

0 

{TABLE  LIST  SIZE 

I 3(JFF ; 

C 

{TABLE  OFFSET  SIZE 

table: 

LJA 

0 , 0 , j 

{POINTER 

STA 

0, TBPNT 

LjA 

0,1.3 

{LIST  SIZE 

STA 

0,T3LS2 

LJA 

0,2,3 

{OFFSET 

ST  A 

0,  TBCFF 

STA 

j,  T6RTN 

{RETURN  ADDRS 

oSR 

0 

ROLUl 

{READ  REPORTED  POINtS  HEADER 

LM  : 

JSR 

If 

RCL  J1 

{READ  A LINE  JF  REPORTED 

POINTS 

LJA 

2, J TbPl 

{UTILITY  BYTE  POINTER 

JSR 

al 

GT  SP< 

{FORM  SP  « 
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T3END 

NE  c, 

C,0 

(.:  M 

D * 0 

M_  V. 

u,0, S2C 

..s  s 

E R R C 1 

E - F I : 

lG  A 

I.TELSZ 

S J 5 C 

wr 

i , J,S2C 

./.'R 

ERRCl 

E ■<  k 2 

JSR 

F«'M5  I 

L'  A 

i,TaPNT 

A.'.; 

G,3 

S'"  A 

I, TEMPI 

ST  A 

3, TEMF2 

...  A 

0,C  , 3 

AND 

■? 

, ,0, SNR 

M k> 

1,0 

S'  A 

G , 0 , .i 

jSR 

it 

GTBYl 

LD  A 

1 ,ASCCR 

S-.E 

n 

1 ,SNR 

JM  ? 

LP  1 

w A 

1 ,ASCAK 

SJS 

n 

0, I , SZR 

JM  P 

LP3 

LDA 

1 , TEMPI 

l:  A 

3, TEMP? 

L'A 

0, TBCFF 

ADD 

0,3 

LO  A 

0 , 0 » i 

AND 

n 

1,0, SNR 

ADD 

1,0 

STA 

0,0,3 

L'‘3i 

JSR 

&TSP2 

LPl 

JMP 

LP2 

7 3 E D : 

LC  A 

3,  TBRTN 

JMP 

3,3 

mITIM! 


CJRAT! 


UTBPl 

MYwUl 

F'lMSl 

RDlUI 
R j L U 2 

or  SPl 
&T  SP2 
C.TDP1 
OTBYl 

opfli 

C.FLl 

ERROl 


UTBPT 
MVWUT 
FMMSK 
R3SJT 
R!)l  JT 
RDLJR 
CKNBR 
GT  SPN 
&TSPR 
GTDPN 
GTBYT 
OPFLE 
CLFLE 
ERR3R 


SKIP  If  « POSITIVE 
ERRQRi  jJT  CF  BCiJNDS 
« IF  IAPJ7  P3INTS 
SKIP  IF  » <=  w.AX 
ERROR  'UT  OF  BOUNDS 
FCRB  MASK  AND  DISP. 

STAR''  OF  INFJT  DATA  MASKS 
ADL  If.  «DRD  OFFSET 

•i.ld  the  mask  F.IT 

■-OLD  THE  POINTER 
MASK  ihuRD 

SKIP  IP  already  PRESENT 
ADD  IN  NEK  BIT 
RESTORE  the  WORD 
GET  BYTE  following  ThE  A 
<C  R> 

SKIP  IF  NOT  3CL 

< ■:  > 

SKIP  IF  LPT  FLAG 
GET  NEXT  » 

RETRIEVE  MASK  BIT 
RETRIEVE  POINTER 
TABLE  OFFSET 
OFFSET  THE  POINTER 
MASK  WORD 

SKIP  I?  ALREADY  PRESENT 
ADD  IN  NEW  BIT 
RESTORE  THE  MASK  WORD 
FORM  SP  « 

NO  H FOUND,  READ  NEXT  LINE 
LOEP  BACK 
RETURN  ADDRS 
RETURN 

TIME  STORAGE 
DURATION  TIME 


(UTILITY  BUFFER  POINTER 
IMCVE  WORDS  FROM  UTILITY 
(FORM  A MASK  AND  DISP. 

(READ  SECUENTIALLY  INTO  UTILITY 

(READ  A LINE  INTO  UTILITY 
(READ  A LINE,  EXIT  ON  EOF 
(CkECK  a NUMBER 
(FORM  A SP  A 

(FORM  A SP  «,  EXIT  IF  NONE 

(FCRM  A DP  « 

(GET  A BYTE 
(OPEN  A CHANNEL 
(CLOSE  A CHANNEL 
(ERROR  ROUTINE 
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tempi: 

0 

;TEMPDRARY 

TEMP2: 

0 

ftSCCR: 

015 

;<Ck> 

ascak: 

052 

;<*> 

ascbk: 

040 

;<  > 

ASCCN: 

136 

;<-> 

JP2: 

AOC 

0,0  fFDRCE  A -I 

STA 

0,TEMP2  ;SET  END  OF  LIST  FLAG 

LDA 

o.ouRAT  ;retrieve  duration  time 

LDA 

1,DURAT+1 

JHP 

JP3  ;STORE  DURATION  AS  FINAL 

ENTRY 

JPO: 

JSR 

S 

RDLUl  ;READ  control  TABLE  HEADER 

JSR 

a 

RDLU2  ;read  control  line 

JP2  ;eof 

LOA 

2,UTBP1  ;JTILITY  BYTE  POINTER 

JSR 

a 

GTSP2  ;fdrm  SP  U 

JP2  :N0  « FOUND 

DSZ 

CNTRO  5SKIP  IF  OUTPUT  TABLE  FULL 

JMP 

.♦2 

JSR 

a 

ERROI  TERROR  ROUTINE 

ERR3: 

STA 

0, TEMPI  ;H0LD  the  state 

JSR 

a 

GTSPI  {FORM  SP  # 

STA 

0,TEMP2  THCLD  THE  SIGNAL  H 

JSR 

0 

GTDPl  ;FDRM  dp  « 

J33: 

lDA 

2,H0TIM  TPREVIOUS  TIME 

LOA 

3,HDT  IM  + l 

STA 

O.HDTIM  ISTORE  PRESENT  TIME 

STA 

1 ,HDT IM+l 

SJBZ 

3,1,SZC  TDELTA  TIME 

SUBZ 

2,0,SKP 

AOC 

2,0 

MOV 

0,0, SNC  TSKIP  IF  DL0<=NEW  TIME 

JSR 

ERROI  TERROR  ROUTINE 

ERRA! 

M3V 

n 

0,0, SZR  TSKIP  IF  NO  OVERFLOW 

JSR 

a 

ERROI  TERROR  ROUTINE 

ERRb: 

STA 

a 

I,PNTRO  TSTDRE  DELTA  TIME 

ISZ 

PNTRD  TINC  the  POINTER 

LOA 

0,TEMP2  TRETRIEVE  SIGNAL  A 

AOC 

1,1  TFDRCE  MASK  TO  -1 

MOV 

n 

0,0, SNR  TSKIP  IF  NOT  ACQUISITION 

hdldoff 

JMP 

JPl 

COM 

A 

0,0, SNR  TSKIP  IF  NOT  END  OF  LIST 

JMP 

JPl 

LOA 

1,CTLCF  TCONTRDL  M OFFSET  (257) 

SUBZ 

1,0, SNC  TREMDVE  OFFSET,  SKIP  IF 

IN  BOUNDS 

JSR 

a 

ERROI  TERROR  ROUTINE 

ERR6: 

LOA 

l.CTLMX  ;«  OF  CONTROL  POINTS 

SUBZ 

n 

1,0, SZC  TSKIP  IF  IN  BOUNDS 

jSR 

a 

ERROI  terror  routine 

ERR7  : 

JSR 

a 

FMMSI  TFORM  mask  AND  DISP. 

CCM 

1,1  tcomplement  the  mask 

MOV 

H 

0,0,SNR  TSKIP  IF  NOT  0 DISP. 

LDA 

0,BUFCF  TELSE  FORCE  MAX  DISP. 

LOA 

2,PNTRB  TCUTPUT  BUFFER  POINTER 

AOO 

0,2  TAOU  IN  DISP. 

LOA 

0, TEMPI  TRETRIEVE  STATE 
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MDV2R 

0.0 

MDVL 

2,0 

ST  A 

a 

l.PNTRO 

ISZ 

PNTRO 

STA 

a 

O.PNTRO 

ISZ 

PNTRO 

COM 

It 

0,0, SZR 

JMP 

JRO*! 

JSR 

a 

CLFLl 

OA 

JSR 

a 

OPFH 

NAMEE 

02 

JSR 

a 

CREAl 

NAMED 

JSR 

a 

OPFLl 

NAMEC 

OA 

JSR 

a 

OPFLl 

NAMED 

03 

JSR 

a 

R0LU2 

JP6 

STA 

2, TEMPI 

LOA 

2,UTBP1 

JSR 

a 

GTBYl 

LOA 

l.ASCAK 

LOA 

2, TEMPI 

SUB 

0,1 

STA 

1, TEMPI 

MOV 

H 

1, I , SNR 

JMP 

JP<, 

NEG 

2,2 

COM 

2,2 

STA 

2,TEMP2 

SUB 

0,0 

JSR 

a 

STBYl 

JSR 

a 

TYLUl 

LDA 

1 .TEMPI 

MOV 

H 

1 , 1 , SNR 

JMP 

JP5 

LDA 

2,TEMP2 

JSR 

i 

RDLU3 

02 

AOCZL 

0,0 

ADD 

0,2 

STA 

0, TEMPI 

JSR 

a 

GTBYl 

LOA 

1 rASCCN 

SUB 

n 

0, 1 ,SZR 

JMP 

JP5 

LDA 

O.ASCCR 

JSR 

a 

STBYl 

ISZ 

TEMPI 

;SHIFT  LS  BIT  TO  CARRY 

;SET  STATE  BIT  IN  POINTER 

;STORE  MASK 

;INC  THE  POINTER 

ISTORE  STATE  BIT  AND  POINl 

;INC  POINTER 

;SKIP  IF  END  OF  LIST 

;loop  back 


ICLOSE  CH#<f 

;OPEN 

;$TTI 

ION  CH  U2 

ICREATE  A FILE 

; 'TEMPA.TM ' 

JQPEN  PREAM.OA  FILE 
;ON  CH#^ 

{OPEN  TEMPA.TM  FILE 
ION  CM«3 

{READ  A QUERY  LINE 
{EOF 

{HOLD  THE  BYTE  POINTER 
{UTILITY  BYTE  POINTER 
{GET  A BYTE 
{<*> 

{RETRIEVE  THE  POINTER 
{SET  FLAG  TO  0 IF  <»> 

{HOLD  THE  FLAG 
{SKIP  IF  NOT  <*> 

{DECREMENT  BY  -1 

{HOLD  THE  POINTER 

{CLEAR  ACO  TO  NJL 

{REPLACE  <CR>  WITH  <NUL> 

{ECHO  THE  LINE 

{RETRIEVE  THE  FLAG 

{SKIP  IF  RESPONSE  REQUIRED 

{HOLD  THE  LINE 

{RETRIEVE  THE  POINTER 

{READ  INTO  utility 

{FROM  CHA2 

{FORCE  A -2 

{BACK  UP 

{STORE  -2  AS  flag 
{GET  A BYTE 
{<-> 

{SKIP  IF  <-> 

{<CR> 

{REPLACE  <->  WITH  <CR> 

{INC  THE  FLAG 


It 

) 
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JP5  : 

J5R  a 

WTLUl 

{WRITE  THE  LINE 

LOA 

2,UTBP1 

{UTILITY  BYTE  POINTER 

ISZ 

TEMPI 

{INC  THE  FLAG,  SKIP  IF  <-•> 

JMP 

LPA 

{READ  NEXT  QUERY 

JHP 

LP5 

{CONTINUE  QUERY  RESPONSE 

P'JTRB: 

MUX3B-1 

{POINTER  TO  DMA  OUTPUT  BUFFER 

P'4TR0: 

CTLTB 

{POINTER  TO  CONTROL  LIST 

CNTRO: 

BDAC5 

;m'v  size  of  list 

CTLOF: 

BDACH 

NING  CONTROL  POINT  A 

CTLMX: 

BDAf" 

CONTROL  POINTS 

Bjfgf: 

BO  ACc 

{MUX  OUTPUT  BUFFER  SIZE 

CREAl  : 

CR  EAT 

{CREATE  A FILE 

XFERl  : 

XFERF 

{TRANSFER  ASCII  FILES 

X3  LKl : 

XBLK 

{TRANSFER  FILES  BY  BLOCKS 

WTLUl  : 

WTLUT 

{WRITE  A LINE  FROM  UTILITY 

BUFFER 

TYLUl  ; 

TYLJT 

{TYPE  A LINE  FROM  UTILITY 

BUFFER 

STBYl  : 

STBYT 

{STORE  A BYTE 

C.FL2: 

CLFLE 

{CLOSE  A CHANNEL 

TYPMl: 

TYPrtG 

{TYPE  A MESSAGE 

UTBP2: 

UTBPT 

lUTILITY 

’ BYTE  POINTER 

R3LU3; 

ROLJA 

{READ  A LINE 

GTBY2: 

GTBYT 

{GET  A BYTE 

ASC  in: 

116 

{<N> 

ASC I Y: 

131 

{<Y> 

J?6: 

JSR  a 

CLFL2 

0<. 

{CLOSE  CHAA 

JSR  it 

CLFL2 

03 

{CLOSE  CHA3 

Ji’l  1 : 

JSR  a 

TYPMl 

{TYPE  A MESSAGE 

MSG02 

{MESSAGE  «2 

LOA 

2,UTBP2 

{UTILITY 

JSR  3 

R0LU3 

{READ  A LINE 

02 

{FROM  CM  A2 

LOA 

2 ,UTBP2 

{UTILITY 

JSR  a 

GTBY2 

{GET  A BYTE 

LOA 

1 .ASCIN 

{<N> 

SJB  A 

0,1 ,SNR 

{SKIP  IF  NOT  <N> 

J-^  P 

JPIO 

lOA 

1 ,ASC  lY 

;<Y> 

SJB  B 

C, 1 ,SZR 

{SKIP  IF  <Y> 

JY  0 

J=  1 1 

JSR  a 

CLFL2 

02 

JCLCSE  CH«2 

LOA 

O.MAGFG 

{MAG  TAPE  FLAG 

WV  A 

0,0, SNR 

{SKIP  IF  mag  tape 

jwp 

JP7 

JjH  >1 

XPERl 

{TRANSFER 

NAMED 

{TEMPA.TM  TO 

NAM  EM 

{MTC:0 

JSR  1/ 

XPERl 

{TRANSFER 

MEBPT 

{METHOD  FILE  ’D 

NAME  I 

{ M T C : 1 
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JSR  i 

XBLKl 

{TRANSFER  BLOCK 

NAMEM 

{'ASSIONA.DA' 

NAME  J 

; 'MT0:2' 

JSR  a 

XBLKl 

{TRANSFER  BLOCK 

NAMEN 

{INPUT  MUX  ASSIGN  FILE  TG 

NAMEK 

{MT0:3 

JSR  «• 

XBLKl 

{TRANSFER  BLOCKS 

NAMED 

{LOW  SPEED  BUFFER  ASSIGN  FILE  TO 

NAMEL 

{ 'MTO  :A  ' 

J37: 

Ri  AOS 

0 

{READ  SWITCHES 

Hcv  n 

0,0 , SNR 

{SKIP  IF  NOT  ALL  DOaN 

J'l? 

JP8 

jSR  a 

TVPMl 

MS&Ol 

{TYPE  A MESSAGE 

SJB 

0,0 

{CLEAR  ACO 

IMC 

0,0, SIR 

{DELAY 

JMP 

.-1 

READS 

0 

{READ  SWITCHES  AGAIN 

MOV  n 

0,0, SZR 

{SKIP  WHEN  ALL  DOWN 

JMP 

.-5 

{LOOP  BACK 

j^6  ; 

JMP  a 

OVRTN 

{RETURN  TO  ROOT  BINARY 

PHICD: 

AOO 

{PHASE  1 ERROR  CODE 

ERTBL: 

.+ 1 

{ERROR  TABLE  POINTER 

ERRl 
ERR2 
ERR3 
ERR'i 
ERR5 
ERR6 
ERR7 
ERRS 
ERR9 
ERRIO 
ERR  1 1 
ERR12 
-1 

{END  OF  TABLE 

error: 

LDA 

0, PHICD 

{PHASE  1 ERROR  CODE 

LOA  a 

2, ERTBL 

{ERROR  TABLE 

ISZ 

ERTBL 

{INC  TABLE  POINTER 

INC 

0.0 

tINt  COUNT 

COM  n 

2. 2, SNR 

{SKIP  IF  NOT  EOT 

JMP 

.♦3 

SJB  It 

2, 3, SZR 

{SKIP  IF  ERROR  FOUND 

JMP 

.-6 

{LOOP  BACK 

JMP 

. + 2 

SYSER: 

ADC 

0,0 

{SYSTEM  ERROR  FLAG 

STA 

0,ERCD0 

{STORE  IN  ROOT  BINARY 

JMP  a 

ERRTN 

{ERROR  RETURN  TO  ROOT  BINARY 

Cknbr: 

LOA 

1,0,3 

{LOWER  ROUND 

SJBZ  H 

1,0, SNC 

{SKIP  IF  OK 

JMP 

ERROR 

LDA 

1,1,3 

{UPPER  BOUND 

SJBZ  » 

0,1 , SNC 

{SKIP  IF  OK 

JMP 

ERROR 

JMP 

2,3 

{NORMAL  RETURN 
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CXI  I 

11 

C12: 

12 

C^RTN: 

0 

;RETURN  AODRESS 

great: 

LOA 

0.0.3 

;NAHE  POINTER 

INC 

3.3 

ST  A 

3.CARTN 

;STORE  RETURN 

CREAA: 

.SYSTM 

.CREA 

{CREATE  SEQ^  FILE 

JMP 

• ♦2 

{ERROR 

JMP  a 

CRRTN 

{RETURN 

LDA 

l.Cll 

SJB  M 

1.2.SZR 

{SKIP  IF  FILE  EXISTS 

JMP  a 

SYSEl 

{ERROR 

JSR 

OELEA 

{DELETE  THE  FILE 

JMP 

CREAA 

{TRY  AGAIN 

OELET; 

LDA 

0.0.3 

{NAME  POINTER 

INC 

3.3 

OELEA: 

ST  A 

3.USP 

{STORE  RETURN 

•SYSTM 

•DELET 

{DELETE  THE  FILE 

JMP 

.♦2 

JMP 

0,3 

{NORMAL  RETURN 

LDA 

1,C12 

SJB  A 

1.2, SIR 

{SKIP  IF  NO  FILE 

JMP  a 

SYSEl 

{ERROR 

JMP 

0,3 

{NORMAL  RETURN 

xfrtn: 

0 

{RETURN  ADDRESS 

XFERF: 

LDA 

0,0,3 

{SOURCE  FILE 

LOA 

1.1.3 

{DESTINATION  FILE 

STA 

O.XFSFL 

ST  A 

1, XFOFL 

STA 

3, XFRTN 

{STORE  RETURN 

JSR 

OPFLE 

{OPEN  SOURCE  FILE 

xfsfl: 

0 

{POINTER 

OA 

{ON  CHAA 

JSR 

OPFLE 

{OPEN  DESTINATION  FILE 

xfofl: 

0 

{POINTER 

03 

{ON  CHA3 

JSR 

RDLUR 

{READ  A LINE 

• ♦3 

{RETURN  ON  EOF 

JSR 

WTLUT 

{WRITE  A LINE 

JMP 

• -3 

{LOOP  BACK 

JSR 

CLFLE 

{CLOSE 

OR 

{CHAA 

JSR 

CLFLE 

{CLOSE 

03 

{CHA3 

LOA 

3, XFRTN 

{RETURN  ADDRESS 

JMP 

2,3 

{RETURN 

QPFLE: 

LOA 

0,0,3 

{NAME  pointer 

LOA 

2,1,3 

{CH  A 

SJB 

1.1 

{USE  DEFAULT  CHARACTERISTICS 

STA 

3,USP 

{STORE  RETURN 

•SYSTM 

• OPEN 

77 

{OPEN  THE  CHANNEL 
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CLFLE: 


mtanm; 


INMTA: 


TYPMG: 


Tylut: 
HT  LUT: 


RDSUT: 


SYSEl: 

UTBPO: 

C03: 

C3a: 

CD6: 

Cl  77: 
RDRTN: 

rdlua: 


jNP  a 

SYSEl 

TERROR 

JMP 

2,3 

{NORMAL  RETURN 

LOA 

2,0,3 

iCH  » 

STA 

3,USP 

{STORE  RETURN 

.SYSTH 

.CLQS 

77 

{CLOSE  THE  CHANNEL 

JHP  a 

SYSEl 

{ERROR 

JMP 

1,3 

{NORMAL  RETURN 

.+  1*2 

.TXT 

/MTO/ 

LDA 

0, MTANM 

{NAME  POINTER 

SUB 

Itl 

{PARTIAL 

STA 

3,USP 

{STORE  RETURN 

.SYSTM 

.INIT 

{INITIAL  DIRECTORY 

JSR  a 

SYSEl 

{ERROR 

OIA 

0,MTA 

{STATUS 

MOVR  # 

0,0, SNC 

{SKIP  WHEN  READY 

JMP 

.-2 

{WAIT  FOR  7REWIN0 

JMP 

0,3 

{NORMAL  RETURN 

LDA 

0,0,3 

{MSG  POINTER 

INC 

3,3 

SUB2L 

2,2 

{FORCE  A +1  FOR  CH# 

JMP 

.♦5 

suezL 

2,2 

{FORCE  A +1  FDR  CH# 

JMP 

.♦2 

LOA 

2,C03 

{CH  #3,  BY  DEFAULT 

LDA 

0, UTBPO 

{UTILITY  BYTE  POINTER 

STA 

3,USP 

{STORE  RETURN 

.SYSTM 

.URL 

77 

{WRITE  A LINE 

JMP  a 

SYSEl 

{ERROR 

JMP 

0,3 

{NORMAL  RETURN 

LDA 

1,0,3 

{BYTE  COUNT 

LDA 

0, UTBPO 

{UTILITY  BYTE  POINTER 

LDA 

2,C0A 

{CH  #<, 

STA 

3,USP 

{STORE  RETURN 

.SYSTM 

.RDS 

77 

{READ  SEOUENTIAL  BYTES 

JSR  a 

SYSEl 

{ERROR 

JMP 

1,3 

{NORMAL  RETURN 

SYSER 

{SYSTEM  ERROR 

UTBPT 

{UTILITY  BYTE  POINTER 

03 

09 

06 

177 

0 

ADC 

1,1 

{RETURN  FLAG  -1 

MOV 

2,0 

{BYTE  POINTER 

LDA 

2,0,3 

{CH  # 
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INC 

3,3 

JMP 

. + 7 

ROLUR: 

LDA 

1,0,3 

INC 

3,3 

JMP 

.*2 

ROLUT: 

ADC 

1.1 

LDA 

O.UTBPO 

LDA 

2,C0<. 

STA 

I .RDRTN 

STA 

.SYSTM 

3,USP 

.RDL 

77 

JMP 

. + A 

MOV 

0,2 

ADD 

1,2 

JMP 

0,3 

LDA 

0,C06 

SUB  n 

0,2,SZR 

JMP  3 

SYSEl 

LCA 

0, RDRTN 

COM  H 

0,0, SZR 

JMP  a 

RDRTN 

JMP  a 

SYSEl 

SPLDS: 

LDA 

0,0,3 

STA 

.SYSTM 

.SPDA 

3,USP 

JSR  a 

SYSEl 

JMP 

1,3 

MVRTN: 

0 

mvwut: 

LDA 

2,0,3 

LDA 

1,1,3 

STA 

3,MVRTN 

LDA 

3,UTBP0 

MDVZR 

3,3 

NEG 

1,1 

LOA 

0,0,3 

STA 

0,0,2 

INC 

3,3 

INC 

2,2 

INC 

1,1 , SZR 

JMP 

.-5 

LDA 

3,MVRTN 

JMP 

2,3 

C=FL3: 

DPFLE 

CLfL3: 

clfle 

03MT3: 

DPMT  A 

RDBL3: 

rdblk 

MT AW3: 

MT  AWT 

MTAS3: 

MTASR 

MTAES; 

MTAEF 

XSRTN: 

0 

x3lk; 

LOA 

0,0,3 

LOA 

1,1,3 

fRETURN  ADDRESS 


{RETURN  FLAG  -1 
{UTILITY  BYTE  POINTER 
{CH  »<• 

{STORE  RETURN 
{STORE  RETURN 

{READ  A LINE 

{CHECK  FOR  EOF 

{MOVE  THE  BYTE  POINTER 

{OFFSET  THE  POINTER 

{NORMAL  RETURN 

{EOF  CODE 

{SKIP  IF  EOF 

{ERROR 

{RETURN 

{SKIP  IF  NO  EOF  RETURN 

{EOF  RETURN 

{ERROR 

{DEVICE  BYTE  POINTER 
{STORE  RETURN 

{DISABLE  SPOOLING 
{ERROR 

{NORMAL  RETURN 


{DESTINATION  POINTER 
{COUNT 

{STORE  RETURN 
{UTILITY  BYTE  POINTER 
{FORM  ADDRESS 
{NEC  THE  COUNT 
{GET  WORD 
{STORE  WORD 


{SKIP  WHEN  DONE 

{RETURN  ADDRESS 
{RETURN 

{OPFN  A FILE 
{CLOSE  A CHAN.NEL 
{OPEN  MAG  TAPE  FOR  FF 
{READ  A DISK  BLOCK 
{WRITE  BLOCK  TO  MTA 
{SPACE  REVERSE  MTA 
{WRITE  EOF  ON  MTA 
{RETURN  ADDR5 
{SOURCE  FILE 
{DESTINATION  FILE 
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STA 

0,XBLKS 

STA 

ItXBLKD 

STA 

3,XBRTN 

JSR 

3 

0PFL3 

X3LKS: 

0 

O'. 

jSR 

3 

0PMT3 

X3LKD: 

0 

03 

SUB 

0,0 

STA 

OrXRLKN 

JSR 

3 

R0BL3 

XBLKN: 

JSR 

3 

0 

XBEND 

MTAW3 

ISZ 

XBLKN 

JMP 

.-5 

X3END: 

JSR 

3 

MTAE3 

JSR 

3 

MTAS3 

JSR 

3 

CLFL3 

03 

JSR 

3 

CLFL3 

O'. 

LDA 

3,XBRTN 

JMP 

2,3 

O^MTA: 

LDA 

0,0,3 

LDA 

2,1,3 

SUB 

1,1 

STA 

3,USP 

.SYSTM 

.MTOPD 

77 

JSR 

3 

SYSE3 

JMP 

2,3 

ROBAK: 

0 

RDBLk: 

LDA 

1,0,3 

LDA 

0,1  ,3 

STA 

0, ROBAK 

LDA 

0,BLKPT 

LDA 

2,BLKCT 

STA 

3,USP 

.SYSTM 

.ROB 

O'. 

JMP 

. + 2 

JMP 

2,3 

LDA 

1 ,EOFCD 

SUB 

l,2,SZR 

JSR 

3 

SYSE3 

JMP  a RDBAK 


BL 

KPT: 

BU 

FFR 

BL 

kct; 

00 

OADO 

EOFCD: 

06 

SY 

SE  3: 

SY 

SER 

SR 

CMO: 

O'. 

0001 

EF 

CMO: 

06 

0000 

wr 

CMO: 

05 

O'.OO 

ED 

FMk: 

00 

O'.OO 

{SOURCE 
{DESTINATION 
{RETURN  AODRS 
{OPEN 

{DISK  SOURCE 
{ON  CH 
{OPEN  MTA 
{DESTINATION 
{ON  CH  03 
{CLEAR  ACO 
{BLOCK  H 

{READ  DISK  BLOCK 
{BLOCK  K 
{EOF  RETURN 
{WRITE  BLOCK  TO  MTA 
{INC  BLOCK  0 

{WRITE  EOF  TO  MTA 

{SPACE  REVERSE  MTA 

{CLOSE 

{CH  #3 

{CLOSE 

{CH  0^ 

{RETURN  ADDRS 
{RETURN 

{NAME  POINTER 
{CH  » 

{DEFAULT  CHARACTERISTICS 
{STORE  RETURN 

{OPEN  MTA  FOR  FF 
{SYSTEM  ERROR 
{NORMAL  RETURN 

{RETURN  AODRS 
{BLOCK  0 

{EOF  RETURN  ADDRS 
{STORE  ADDRS 
{BLOCK  BUFFER  POINTER 
{COUNT  OF  I 
{STORE  RETURN 

{READ  A BLOCK 
{ERROR 

{NORMAL  RETURN 
{EOF  CODE 
{SKIP  IF  EOF 
{SYSTEM  ERROR 
{EOF  RETURN 

{BLOCK  BUFFER  POINTER 
{BLOCK  COUNT 
{EOF  ERROR  CODE 
{SYSTEM  ERROR 
{SPACE  REVERSE  COMMAND 
{EOF  COMMAND 
{WRITE  BLOCK  COMMAND 
{EOF  MASK 
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HTASR: 

LDA 

l.SRCHD 

ISPACE  REVERSE  COHNANO 

JHP 

.♦2 

MTAEFS 

LDA 

l.EFCMD 

IHRITE  EOF  COHHAND 

JHP 

.♦3 

MTAWTS 

LOA 

l.WTCMD 

(WRITE  COHNANO 

LDA 

O.BLKPT 

(BLOCK  BUFFER  POINTER 

STA 

3,USP 

(STORE  RETURN 

.SYSTH 

.HTDIO 

03 

(HTA  FF 

JHP 

.*2 

(ERROR 

JHP 

0,3 

(NORMAL  RETURN 

LDA 

liEOFHK 

(EOF  MASK 

AND  n 

1,2. SNR 

(SKIP  IF  EOF 

JSR  9 

SVSE3 

(SYSTEM  ERROR 

JHP 

0,3 

(NORMAL  RETURN 

fmmsk: 

SUBIL 

1.1 

(SET  BIT  TO  *l 

HOVZR 

0,0, SZC 

(SKIP  IF  NOT  2*#0 

HQVZL 

1.1 

(SHIFT  1 PLACE  LEFT 

HOVZR 

0.0, SZC 

(SKIP  IF  NOT  2**1 

ADDZL 

1,1 

(SHIFT  2 PLACE  LEFT 

HOVZR 

0,0, SNC 

(SKIP  IF  2**2 

JHP 

.♦3 

ADDZL 

1,1 

(SHIFT  4 PLACE  LEFT 

ADDZL 

1,1 

HOVZR 

0,0, SZC 

(SKIP  IF  NOT  2**3 

HOVS 

1,1 

(SHIFT  8 PLACE  LEFT 

JHP 

0,3 

(RETURN 

CTDPNt 

ADC 

0,0 

(OP  FLAG 

HOV 

0,1 

(ERROR  ON  NO  » FLAG 

JHP 

.♦6 

GTSPA: 

LDA 

1.0,3 

(EXIT  POINTER  IF  NO  A 

INC 

3.3 

JHP 

.♦2 

OTSPNl 

ADC 

1,1 

(ERROR  ON  NO  H FLAG 

SUBZL 

0,0 

(SP  FLAG 

STA 

O.GTFGO 

(SP/OP  FLAG 

SUB 

0,0 

(CLEAR  ACO 

STA 

O.GTFGl 

(«  FOUND  FLAG 

STA 

O.GTOVF 

(OVERFLOW  FLAG 

STA 

O.GTSTR 

(A  STORAGE 

STA 

0,GT5TR*1 

STA 

l.GTERT 

(ERROR  EXIT  FLAG 

STA 

Z.GTBPT 

(BYTE  POINTER 

STA 

3,GTRTN 

(NORMAL  RETURN 

JHP 

.♦2 

GTLPl  : 

ISZ 

gtbpt 

(INC  BYTE  POINTER 

LDA 

2,GTBPT 

(GET  THE  POINTER 

JSR 

GTBYT 

(GET  THE  BYTE 

LDA 

1 .ASCIC 

(<CR> 

SUB 

0,1 , SNR 

(SKIP  IF  NOT  <CR> 

JHP 

GTLP2 

(DONE 

LOA 

1,ASCI9 

(<9> 

ADCZ  » 

1 ,0,SZC 

(SKIP  IF  ACO-ACO 

JHP 

&TLP2 

(NOT  A DIGIT 

LOA 

I.ASCIO 

(<0> 

I 
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Aocz  n 

0,1, SZC  ;SKIP  IF  AC0>*AC1 

JMP 

&TLP2  SNOT  A DIGIT 

ISZ 

GTFGl  ;INC  # FOUND  FLAG 

SUB 

1,0  ;forn  binary 

STA 

O.GTUTL  ;H0LD  THE  # 

LOA 

0,GTSTR  ;GET  previous  VALUE 

LDA 

1 ,GTSTR-H 

MOVZL 

1,1  ;n»2 

MDVL 

0,0, SZC  ;SKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF  ;INC  FLAG 

HOVZL 

1,3  INOA 

HOVL 

0,2, SZC  ISKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF  ;INC  FLAG 

MOVZL 

3,3  ;N*8 

MOVE 

2,2, SZC  ;SKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF  ;INC  FLAG 

AOOZ 

1,3, SZC  JN*10 

INC 

0,0 

ADDZ 

0,2, SZC  ;SKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF  ;INC  FLAG 

lda 

1,GTUTL  IRETRIEVE  THE  BINARY 

ADDZ 

I,3,SNC  lADD  TO  PREVIOUS  « 

JMP 

.♦3 

INCZ 

2,2, SZC  ;SKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF  ;INC  FLAG 

STA 

2,GTSTR  IHOLD  UPDATED  » 

STA 

3,GTSTR+1 

JMP 

GTLPl  ;GET  NEXT  BYTE 

0TLP2: 

LDA 

3, GTFGl  ;if  FOUND  FLAG 

NOV  M 

3, 3, SNR  ;SK1P  IF  If  FOUND 

JMP 

GTLP3 

LOA 

O.CTSTR  {RETRIEVE  THE  If 

LDA 

1,GTSTR>1 

LOA 

2, GTBPT  {RETRIEVE  THE  BYTE  POINTER 

LDA 

3, GTOVF  {OVERFLOW  FLAG 

OSZ 

GTFGO  {SKIP  IF  SP  « 

JMP 

. >9 

MOV  M 

0,0, SZR  {SKIP  IF  NOT  SP  OVERFLOW 

INC 

3,3,SKP  {INC  FLAG 

MOV 

1,0  {MOVE  SP  ft 

MOV  If 

3, 3, SZR  {SKIP  IF  NO  OVERFLOW 

JSR  a 

GTERR  {ERROR  ROUTINE 

errs: 

JMP  a 

GTRTN  {NORMAL  RETURN 

GTLP3: 

MOV  If 

1,1, SZR  {SKIP  IF  EOL 

JMP 

GTLPl  {GET  NEXT  BYTE 

LDA 

1, GTERT  {ERROR  RETURN  FLAG 

COM  If 

1,1, SNR  {SKIP  IF  ADDRESS  SPECIFIED 

JSR  a 

GTERR  {ERROR  ROUTINE 

ERR9  : 

JMP  a 

GTERT  {EOL  RETURN,  NO  • FOUND 

GTERR: 

ERROR 

(ERROR  ROUTINE 

gtrtn; 

0 

{RETURN  ADDRESS 

GTERT: 

0 

{EOL  RETURN  FLAG 

gtbpt; 

0 

{BYPE  POINTER  STORAGE 

GTSTRt 

0 

A 

{«  STORAGE 

GTFGOi 

U 

0 

{DP/SP  FLAG 

I 


73 


APPENDIX  A 


GTFGl: 

0 

;«  FOUND  FLAG 

GTDVF : 

0 

IDVERFLDW  FLAG 

GtuTl: 

0 

;UT  IL  ITY 

ASCIC: 

01  5 

;<CR> 

ASCI9: 

071 

;<9> 

ASC  lO: 

ObO 

;<o> 

gtbyt; 

LOA 

1, BTMSK 

;byte  mask 

MavzR 

2,2,SNC 

;fqrm  word  address,  skip 

IF 

RHS 

MCV5 

1,1 

;SMAP  IHt  MASK 

LDA 

0,0.2 

:get  mord 

AND 

1,0,SNC 

;mask  the  word,  skip  if 

RHS 

MOVS 

0,0 

;SWAP  THE  WORD 

MDVL 

2,2 

;restore  byte  pointer 

JMP 

0,3 

{RETURN 

btmsk: 

377 

{BYTE  MASK 

1 

STKTN: 

0 

stbyt: 

^DA 

1 .BTMSK 

{BYTE  MASK 

AND 

1.0 

{MASK  THE  WORD 

MDVZR 

2,2,SNC 

{FORM  WORD  ADDRESS,  SKIP 

IF 

RHS 

MDVS 

0,0, SZC 

{SWAP  WORD,  SKIP  IF  LHS 

MOVS 

1,1 

{SWAP  MASK 

/ 

STA 

3, STRTN 

{STORE  RETURN 

LDA 

3,0,2 

{GET  WORD 

AND 

1,3 

{MASK  THE  WORD 

ADD 

0,3 

{ADD  IN  NEW  BYTE 

STA 

3,0,2 

{RESTORE  The  WORD 

MCVL 

2,2 

{RESTORE  BYTE  POINTER 

INC 

2,2 

{INC  POINTER 

JMP  a 

STRTN 

{RETURN 

.T  XTM 

1 

NAMEA= 

.*2 

.TXT 

/COM. CM/ 

N4MEC= 

.*2 

.TXT 

/PREAMBLE .DA/ 

N4MED= 

.*2 

.TXT 

/TEMPA.TM/ 

N1MEE= 

.*2 

.TXT 

/tTTI/ 

NAME  F = 

.<■2 

.TXT 

/ATTO/ 

, 

N4MEG= 

.■'■2 

.TXT 

/tLPT/ 

NAMEH= 

.S' 2 

.TXT 

/-TOrO/ 
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NAMEl* 

NAME J= 

NAMEK= 

NANEI.= 

NAMEH- 

NAHEN^ 

NAMEO* 

MSG01= 

MSG02= 

UTBPT= 

0JFFR= 


.<■2 

.TXT  /MTO:I/ 

.*2 

.TXT  /MT0:2/ 

.*2 

.TXT  /MT0:3/ 

.<■2 

.TXT  /MTOl<»/ 

.*2 

.TXT  /ASSIGNA.DA/ 

.«2 

.TXT  /ASSIGNS. DA/ 

.■>2 

.TXT  /ASSIGNC.DA/ 

. >2 

.TXT  /<12>ALL  SWITCHES  DDWN<12><15>/ 

.<■2 

.TXT  /<12>PREAMBLE  FILE  OK?  (r,NI  / 

.<•2 

.BLK  110 

. JBLOCK  BUFFER 
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A-3. 

NAME 

TIME 


OvST2 


Overlay  Module  No.  2 — PHAS2.SR 

BLQCK  NAME<  PHAS2.SR 


BLOCK 


• TITL 

PHAS2 

;JC1  23  FEB  76 

.TXTH 

0 

.ENT 

□ VST2 

.EXTD 

OVRTN  BLKCT  SMPRT  ERCOD  HLOCT  CTLTB 

• EXTO 

ERRTN 

.NREL 

SKPBZ 

TTO 

:WAIT  FOR  TTQ  IDLE 

JNP 

.-1 

NOP 

NOP 

SKPB2 

TTQ 

JMP 

.-5 

SKPOl 

TTO 

JHP 

.-7 

LDA 

l.SEEKG 

iOISK  SEEKING  MASK 

01  A 

OtOKP 

;DISK  STATUS 

AND  # 

0.1. SIR 

;SKIP  IF  NOT  SEEKING 

JMP 

.-2 

SKPBZ 

DKP 

{WAIT  FOR  DISK  IDLE 

JMP 

.-1 

NOP 

NOP 

SKPBZ 

OKP 

JMP 

.-5 

SKPDZ 

OKP 

JMP 

.-7 

INTOS 

lOISABLE  INTERRUPTS 

LDA 

0,1 

IROOS  INT  VECTOR 

LOA 

1 , INTSV 

IBOACS  INT  VECTOR 

5TA 

0,  INTSV 

{SAVE  ROQS  VECTOR 

ST  A 

1.1 

{ENABLE  60ACS  INT  SYSTEM 

LOA 

0, INTMK 

{6DACS  INT  MASK 

MSKQ 

0 

{MASK  OUT 

LOA  i 

O.ScEKl 

{SEEK  rOMMAND 

OOAP 

O.OKP 

{OUTPUT  THE  COMMAND 

LOA 

l.SEEKO 

{SEEK  DONE  MASK 

01  A 

O.DKP 

{GET  DKP  STATUS 

AND  It 

0,1 .SNR 

{SKIP  WHEN  SEEK  FINISHED 

JMP 

.-2 

N1  DC 

DKP 

{CLEAR  DISK 

NIOC 

MUX 

{RESET  THE  MUX 

LOA 

O.OMUXA 

{DHUX  I/O  START  AODR.  AND  COUNT 
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DDA 

O.NUX 

LOA 

0.0MUX6 

{OCH  INPUT  START  AODR. 

DOB 

OtMUX 

LDA 

O.DMUXe 

;high  speed  word  mask 

LDA 

l.SMPRT 

ISAMPLE  RATE 

AOO 

IfO 

tAOO  IN  SAMPLE  RATE 

OOC 

0,MUX 

LOA 

O.OMUXD 

;OCH  INPUT  WORD  COUNT 

DOCS 

O.MUX 

{SET  BUSY,  RESET  DONE 

LDA 

a.TTYPT 

:HSG  POINTER 

Tl  : 

LDA 

0.0,2 

{MESSAGE  WORD 

INCD 

2,2 

{INC  the  POINTER 

T2 ; 

LOA 

l.BTHSK 

{BYTE  MASK 

AND 

0,1 , SNR 

{MASK  THE  WORD,  SKIP  IF  NUL 

JHP 

JUMP! 

D0A5 

l.TTO 

{OUTPUT  A CHARACTER 

SKPON 

TTQ 

{SKIP  WHEN  DONE 

JMP 

.-1 

Moves 

0,0, SZC 

{SWAP  THE  WORD,  SKIP  IF  VALID 

JMP 

Tl 

{GET  NEXT  WORD 

JMP 

T2 

{OUTPUT  NEXT  CHARACTER 

btmsk: 

377 

{BYTE  MASK 

D'IUXA: 

01 3003 

{MUX  START  ADDRESS  E COUNT 

DHUXB: 

BUFSl+1 

{INPUT  DMA  BUFFER 

O'iUXC: 

lAOOOO 

{HIGH  SPEED  WORD  MASK 

O'lUXD: 

100000- 

BOACN 

{-WORD  COUNT,  AND  0 IN  IBO 

D'IUXE: 

BUFSl 

{INPUT  DMA  BUFFER  (RUNNING) 

D’^UXF: 

100000- 

BDACM-1 

(-WORD  COUNT  (RUNNING) 

CLKCO: 

03 

{IMS  RTC  CODE 

5EEK&: 

002000 

{DKP  SEEK  IN  PROGRESS  MASK 

5EEKD: 

OAOOOO 

{OKP  SEEK  DONE  MASK 

SE  EKl : 

SEEKC 

{INITIAL  SEEK  COMMAND 

IXTMK: 

-1 -IMCLK-IMMUX- 

IMOKP  {B0AC5  INTERRUPT  MASK 

INTSV: 

INTSR 

{BDACS  INTERRUPT  SERVICE  ROUTINE 

TEYPT: 

.♦1 

{POINTER  TO  TEXT 

.TXT 

/<15><12>READY<12><I5><12>/ 

JJMPI : 

NIOC 

TTO 

{CLEAR  TTQ 

LDA 

0, CLKCO 

{1  MS  CODE  FOR  CLOCK 

LDA 

1 ,DMUXE 

;DCH  INPUT  START  AODR.  (RUNNING) 

LOA 

2,DMUXF 

{OCH  INPUT  WORD  COUNT  (RUNNING) 

READS 

3 

(READ  SENSE  SWITCHES 

MDVZL  n 

3,3,SNC 

(SKIP  WHEN  SSO  UP 

JMP 

.-2 

LDA 

3,PNTR0 

(OUTPUT  TABLE  POINTER 

DOAS 

O.CLK 

(START  THE  RTC 

NIDP 

MJX 

(START  THE  MULTIPLEXER 

OOB 

1 ,MUX 

(OUTPUT  RUNNING  VALUES 

DOC 

2, MUX 

INTEN 

{ENABLE  INTERRUPTS 

1 o: 

LOA 

0,0,3 

(DELTA  TIME 

MOV  # 

0,0, SNR 

{SKIP  IF  NOT  0 

JMP 

LI 

(ELSE  OUTPUT  IMMEDIATELY 
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LOA 

l.RTCCT 

;rtc  count 

HQV  » 

l.USNR 

;SKIP  IF  POSITIVE  COUNT 

Jflp 

LO 

TLOOP  BACK 

OSZ 

RTCCT 

;OEC  THE  COUNT 

NOP 

OSZ 

0,3 

;SKIP  IF  OUTPUT  reouired 

JMP 

LO 

:locp  back 

LI : 

LOA 

1,1,3 

lOUTPUT  MASK 

LOA 

2,2,3 

ISTATE  ANO  BUFFER  POINTER 

CON  « 

2, 2, SNR 

ISKIP  IF  NOT  ENO 

JMP 

L2 

MOV  N 

2, 2, SNR 

{SKIP  IF  NOT  ENO  OF  HOLDOFF 

JMP 

L6 

MOVZR 

2,2 

;SET  STATE  IN  CARRY 

LOA 

0,0,2 

;GET  BUFFER  WORO 

AND 

1,0 

IMASK  THE  WORD 

MJV  A 

0,0, SNC 

;SK1P  IF  +1  STATE 

ADC 

1,0 

TRESET  THE  STATE 

STA 

0,0,2 

IRESTORE  THE  BUFFER  WORO 

L3 : 

LDA 

0,CTL0F 

ICONTROL  TABLE  OFFSET 

ADO 

0,3 

{OFFSET  THE  POINTER 

JMP 

LO 

{LOOP  BACK 

L6 ; 

ISZ 

HLOFO 

{HOLOOFF  FLAG 

JMP 

L3 

L2  S 

ISZ 

ENDFG 

{ENO  OF  ACQUISITION/CONTROL  FLAG 

JMP 

• 

{WAIT  FOR  LAST  OATA  BLOCK 

JMP 

.-1 

L<f: 

SJB 

1,1  ,SKP 

{SET  FLAG  0 

error: 

ADC 

1,1, SKP 

{SET  FLAG  -1 

JMP 

L5 

LDA 

0,PH2CD 

{PHASE  2 ERROR  COOES 

LDA  U 

2,ERTBL 

{ERROR  TABLE 

ISZ 

ERTBL 

{INC  THE  POINTER 

INC 

0,0 

{INC  THE  COUNT 

COM  « 

2, 2, SNR 

{SKIP  IF  NOT  EOT 

JMP 

.♦3 

SUB  n 

2,3,SZR 

{SKIP  IF  ERROR  FOUNO 

JMP 

.-6 

{LOOP  BACK 

JMP 

.+2 

srSER: 

ADC 

0,0 

{SET  FLAG  -1 

STA 

0,ERCDD 

{HOLD  ERROR  COUNT 

L3  i 

NIOC 

MJX 

{RESET  MUX 

NIOC 

CLK 

{RESET  CLOCK 

NI  OC 

OKP 

{RESET  DISK  PACK 

INTDS 

{DISABLE  INTERRUPTS 

SJB 

0,0 

{CLEAR  ACO 

MSKO 

0 

{CLEAR  ALL  INTERRUPT  MASKS 

LDA 

0,  INTSV 

{RETRIEVE  RDOS  INTERRUPT  VECTOR 

STA 

0,1 

INTEN 

{ENABLE  INTERRUPTS 

COM  » 

1,1  ,SZR 

{SKIP  IF  ERROR 

JMP  3 

OVRTN 

{NORMAL  RETURN  TO  ROUT  BINARY 

JMP  3 

ERRTN 

{ERROR  RETURN 

P12C0: 

1000 

{PHASE  2 ERROR  CODE 

ertpl: 

.♦1 

{ERROR  TABLE  POINTER 
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ERRl 

;0ISK  ERROR 

ERR2 

lOVERFLOW  ERROR 

ERR3 

:mux  error 

ERR4 

;avERRUN  ERROR 

-1 

:END  of  TABLE 

PNTRO: 

CTLTB 

{OUTPUT  LIST  POINTER 

ctlof: 

BDACK 

{CONTROL  LIST  ENTRY  SIZE 

RTCCT: 

0 

{RTC  COUNT 

save: 

0 

0 

{INTERRUPT  SAVE  AREA 

ENOFO: 

0 

0 

{END  OF  ACOUISITION/CONTROL 

FLAG 

MJXFG: 

0 

{MUX  FLAG 

D<PFO: 

0 

{DISK  FLAG 

H.0F&: 

0 

{HCLOOFF  FLAG 

INTSR: 

SKPON 

CLK 

{SKIP  IF  RTC  INTERRUPT 

J.'IP 

.♦5 

M OS 

CLK 

{RESTART  RTC 

ISZ 

RTCCT 

{INC  COUNT 

INTEN 

JMP  a 

0 

{RETURN  TO  INTERRUPTED  PROGRAM 

STA 

O.SAVE 

{HELD  ACD,  ACl 

sr  A 

l,SAVE4l 

MOVE 

0,0 

{SHIFT  CARRY  AND  HOLD 

STA 

0,SAVE*2 

INTBk: 

SKPDZ 

MUX 

{SKIP  IF  NOT  MUX  INTERRUPT 

JMP 

HUXIN 

01  AC 

0,0KP 

{DKP  STATUS,  CLEAR  FLAGS 

MOVR  « 

0,0, szc 

{SKIP  IF  NO  DKP  ERROR 

JSR  a 

ERROL 

ERRl  : 

AOC 

1,1 

{FORCE  -1 

MOVE  tt 

0,0, 5NC 

{SKIP  IF  WRITE  INTERRUPT 

JMP 

SKINT 

DSZ 

BLKCT 

{DEC  DATA  BLOCK  COUNT 

JMP 

.♦1 

EDA 

O.ENCFG 

{END  OF  ACOUISITION/CONTROL 

FLAG 

MOV  H 

0,0, SZR 

{SKIP  IF  NOT  DONE 

JMP 

LA 

LOA 

0, BLKCT 

{DATA  BLOCK  COUNT 

MOVR  « 

0,0, SNC 

{SKIP  IF  EVEN  SURFACE  COMPLETE 

JMP 

DSKSK 

{SEEK  NEW  CYLINDER 

S-^INT: 

IVC 

1,1 

{FORCE  0 

EDA 

O.OKPFG 

{DISK  PACK  FLAG 

STA 

1 ,DKPFG 

{UPDATE  flag 

MCiVZR  » 

0,0, SZR 

{SKIP  IF  DEFERRED  WRITE  REQUIRED 

JMP 

INTRL 

{RELEASE  the  INTERRUPT 

LOA 

OiMUXFG 

{MUX  FLAG 

JMP 

WRITE 

D jKSk: 

MOV  » 

0,0, SNR 

{SKIP  IF  NO  OVERFLOW 

^ s R a 

ERROl 

E < R ? : 

S’ A 

l.DKPFG 

{UPDATE  FLAG 

ISZ 

SEEKC 

{INC  CYL  « IN  SEEK  COMMAND 

ISZ 

WRITC 

{INC  CYL  U IN  WRITE  COMMAND 

LuA 

0, SEEKC 

D'AF 

C,DKP 

{OUTPUT  THE  SEEK  COMMAND 
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JMP 

INTRL 

;RELEASE  THE  INTERRUPT 

mjxhf: 

ISZ 

HLDCT 

;INC  THE  HOLDOFF  COUNT 

INTRLt 

INTA 

0 

; INTERRUPT  ACK. 

MOV  n 

0,0. SIR 

;SKIP  IF  NO  INTERRUPTS  PENDING 

JMP 

. + 7 

LDA 

O.SAVEMi 

HOVR 

0,0 

IRETRIEVE  CARRY 

LDA 

I, SAVELI 

LDA 

O.SAVE 

IRETRIEVE  ACl  AND  ACO 

INTEN 

JMP  a 

0 

{RETURN  TO  INTERRUPTED  PROGRAM 

SKPDZ 

CLK 

{SKIP  IF  NO  CLOCK  INTERRUPT 

JMP 

.-7 

JMP 

INTBK 

{LOOP  BACK 

hjxim: 

01  AS 

0,MUX 

{RESTART  MUX,  GET  STATUS 

LDA 

l.MUXFG 

{OLD  STATUS 

STA 

O.MUXFG 

{UPDATE  STUTUS 

SOB  H 

0, 1 , SNR 

{SKIP  IF  NO  MUX  ERROR 

jSR  a 

ERROl 

ERR3  : 

LDA 

l.HLDFG 

{HOLDOFF  FLAG 

MOV  # 

1,1, SNR 

{SKIP  IF  NO  HOLDOFF  IN  EFFECT 

JMP 

MUXHF 

LDA 

1 .DKPFG 

{DISK  FLAG 

MOV  » 

1,1 , SIR 

{SKIP  IF  DISK  IDLE 

JMP 

HRTOF 

{DEFER  writing 

kR  ITE: 

STA 

0, DKPFG 

{SET  DISK  FLAG 

LDA 

l.BUFSl 

{1ST  BUFFER  POINTER 

MQVL  H 

0,0. SNC 

{SKIP  IF  1ST  BUFFER  REQUIRED 

LDA 

1 .BUF$2 

{ELSE  GET  2ND  BUFFER  POINTER 

DOB 

1 ,DKP 

{OUTPUT  THE  POINTER 

LDA 

l.SURFE 

{EVEN  SURFACE 

MOVL  A 

0,0, SNC 

{SKIP  IF  EVEN  SURFACE  REQUIRES 

LDA 

1 .SURFO 

{ELSE  GET  ODD  SURFACE 

DOC 

1 ,0KP 

LDA 

l.WRITC 

{WRITE  COMMAND 

OOAS 

l.OKP 

{OUTPUT  COMMAND,  START  WRITE 

JMP 

INTRL 

{RELEASE  THE  INTERRUPT 

hRTDF: 

MOVZR  A 

1,1, SIR 

{SKIP  IF  DEFER  IN  EFFECT 

SUB  » 

0,1 , SNR 

{SKIP  IF  NO  OVERRUN 

JSR  a 

ERROl 

ERR4  : 

SUBZL 

1,1  ' 

{SET  FLAG  +1  (WRITE  PENDING) 

STA 

1, DKPFG 

{DISK  FLAG 

JMP 

INTRL 

{RELEASE  THE  INTERRUPT 

ERROl : 

ERROR 

{ERROR  ROUTINE 

SEEKC: 

175000+BDACD 

{INITIAL  SEEK  COMMAND 

WR ITC: 

17AA00+BDACD 

{INITIAL  WRITE  COMMAND 

5 JRFE  : 

OOOOOA 

{EVEN  SURFACE 

SJRE JS 

OOOAOA 

{.ODD  SURFACE 

BJFS2: 

.♦2+BDACM 

{2ND  BUFFER  POINTER 

BJFSl  : 

.♦1 

{1ST  BUFFER  POINTER 

.B  LK 

0 

BDACMaZ 

{START  OF  DATA  BUFFERS 

.END 

k 


APPENDIX  A 


A-4.  Overlay  Module  No.  3 — PHAS3.SR 


NAME  BLOCK  NAME=  PHAS3.SR 


TIME  BLOCK 


.T  ITL 

PHAS3 

;JC1  2‘i  MAR  76 

• TXTM 

0 

.ENT 

DV5T3 

• EXTD 

QVRTN  MAGFO  ERCOO  ERRTN  HSNON 

1 

.NREL 

1 

PNTRQ: 

HSBUF 

;HS  BUFFER  POINTER 

CNTRO: 

BDACO 

;HS  BUFFER  SIZE 

DHAOB: 

MUXOB 

;mux  output  buffer  pointer 

CNTRB: 

BDAC2 

;OUTPUT  buffer  SIZE 

NONEi: 

NONE 

JNO  HS  BUFFER  REQUIREO 

DV5T3: 

SUB 

0,0 

IFORCE  0 

STA  a 

O.PNTRD 

IRESET  HS  OUTPUT  BUFFER 

ISI 

PNTRO 

osz 

CNTRO 

JMP 

.-3 

ADC 

0,0 

IFDRCE  -1 

STA  a 

0,0MAOB 

;RESET  MUX  OUTPUT  BUFFER 

ISZ 

DMAOB 

DSZ 

CNTR6 

JMP 

.-3 

LDA 

1,HSM0N 

;mS  MONITOR  FLAG 

MOV  H 

1,1, SNR 

;SKIP  IF  ACTIVE 

JMP  a 

NONEI 

IWRAPUP 

SKPBZ 

TTO 

IWAIT  FOR  TTO  lOLE 

JM-P 

.-1 

NOP 

NOP 

SKPBZ 

TTO 

JMP 

.-5 

SKPOZ 

TTO 

JMP 

.-7 

LDA 

1,SEEKG 

;OISK  SEEKING  MASK 

01  A 

0,0KP 

lOISK  STATUS 

ANO  « 

0,1, SZR 

SSKIP  IF  NOT  SEEKING 

JMP 

.-2 

SKPBZ 

OKP 

;WAIT  FOR  DISK  IDLE 

JMP 

.-1 

NOP 

NOP 

SKPBZ 

OKP 

JMP 

.-5 

SKPOZ 

OKP 
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JMP 

.-7 

INTDS 

TDISABLE  INTERRUPTS 

LDA 

0,1 

{RODS  INT  VECTOR 

LDA 

l.INTSV 

;BCACS  INT  VECTOR 

ST  A 

0,  INTSV 

;SAVE  RODS  VECTOR 

ST  A 

1,1 

iENABLE  BDACS  INT  SYSTEM 

LDA 

0, INTMK 

TBDACS  INT  MASK 

M5KO 

0 

;mask  out 

LDA 

O.DMUXA 

;DMUX  1/0  START  ADDR  . AND  COUNT 

OGA 

0,MUX 

LDA 

O.DMOXB 

;DCH  INPUT  START  ADDR. 

DGB 

O.HUX 

LDA 

0,DMUXC 

;high  speed  word  mask 

DGC 

O.MUX 

LDA 

O.OMUXD 

JDCH  INPUT  WORD  COUNT 

DUS 

0 ,MUX 

;SET  BUSY,  RESET  DONE 

LDA 

2,TTYPT 

fMSG  POINTER 

Tl  ; 

LDA 

0,0,2 

.‘MESSAGE  WORD 

INCD 

2,2 

;1NC  POINTER 

T2  : 

LJ  A 

l.BTMSK 

TBYTE  MASK 

AND 

U,  1 ,SNR 

TMASK  THE  BYTE,  SKIP  IF  NOT  NUL 

JMP 

J'JMPl 

DDAS 

1 ,TTU 

TDUTPUT  A CHARACTER 

SRPON 

TTO 

.'SKIP  WHEN  DONE 

JMP 

.-1 

Moves 

0,0, szc 

TSWAP  THE  BYTES,  SKIP  IF  VALID 

JMP 

Tl 

;GET  NEXT  MORD 

JM  P 

T2 

TUUTPUT  NEXT  CHARACTER 

TIMER: 

CA 

TDELAY  COUNT 

bTMSK: 

377 

TBYTE  MASK 

DMUX a: 

OCOObD 

TMUX  START  ADDRESS  L COUNT 

O'lUXB  : 

INP JT-1 

TINPUT  DMA  BUFFER 

C luxe : 

lAOl AA 

THIGH  RATE  WORD 

O'Iuxd: 

07777b 

T-WCRD  COUNT,  AND  0 IN  IBO 

OMUXE: 

INPUr-2 

.‘INPUT  DMA  BUFFER  (RUNNING) 

D1UXF  : 

0777  ?'=■ 

T-WCRD  COUNT  (RUNNING) 

D'IUXg; 

1 A 77  7 7 

TLOW  RATE  WORD 

EKC: 

00200D 

TDKP  SEEK  IN  PROGRESS  MASK 

riTMK: 

-1-IMMJX 

TBDACS  INTERRUPT  MASK 

I'lTSv: 

INTSR 

TEDACS  INTERRUPT  SERVICE  ROUTINE 

TT YPT: 

.+  1 

TPDINTER  TO  TEXT 

.TXT 

/<15><12>HS  BUFFER  RE TR  I E V AL < 1 2>< 1 5 X 1 2 >/ 

j .1 M p 1 : 

M oe 

TTO 

TCLEAR  TTO 

LDA 

U,eNTLH 

STA  J 

0,eNTLP 

LDA 

O,0MUXE 

TLCH  INPUT  START  ADDR.  (RUNNING) 

LDA 

1 , OMUXF 

TCCH  INPUT  WORD  COUNT  (RUNNING) 

iNIQP 

MUX 

TSTART  THE  MULTIPLEXER 

DOS 

e . MUX 

tc’utput  running  values 

DLC 

1 ,MUX 

IN  TR  L : 

INTEN 

TENABLE  INTERRUPTS 

JVP 

, 

TLUL'P  HERE  TILL  DONE 

J'*P 

.-1 

82 


APPENDIX  A 


MJXF&: 

C 

;mux  statjs  flag 

C'ITLL: 

137777 

;CDMROL  WCRD 

(LOW  ) 

CNTLH: 

037777 

;CuNTRGL  WORD 

(HIGH  1 

C 4 T L P : 

KJX0B+BDAC2-1 

;CGMROL  WORD 

POINTER 

fciiRDl : 

ERROk 

{ERROR  kOOTI\E 

(■ 


IMPUT  : 

0 

0 

JMUX  INPUT  BUFFER 

1 4TSR: 

o 

DIAS 

O.MUX 

;mjx  status 

lD  A 

1 ,MUX'=G 

{PREVIOUS  STATUS 

ST  A 

O.MOXFG 

{UPDATE  THE  STATUS 

SUB  n 

0, 1 , SNR 

{SKIP  IF  NO  ERROR 

JSR  3 

ERRQl 

{ERROR  ROUTINE 

ERM  ; 

LuA 

1 ,CNTLL 

{CONTROL  WORD  MASK  (LOW  SIGNAL) 

MOVE  « 

0,0, SNC 

{SKIP  IF  LOW  REQUIRED 

lOA 

1 ,CNTLH 

{CONTROL  WORD  MASK  (HIGH  SIGNAL) 

STA  2 

l.CNTLP 

{CONTROL  WORD  POINTER 

LOA 

l.OMUXC 

{LOW  RATE  WORD 

MOVE  4 

0,0, SNC 

{SKIP  IF  LOW  RATE  REQUIRED 

LOA 

1 .DMUXC 

{HIGH  RATE  WORD 

DOC 

1,MUX 

M-'VL  n 

0,0, S2C 

{SKIP  IF  VALID  DATA 

JMP 

INTRL 

LOA 

1 , INPUT 

{DATA  WORD 

MOVS 

1,1 

{SWAP  THE  BYTES 

STA  3 

1 ,BFRPT 

{STORE  THE  WORD 

ISZ 

BFRPT 

{INC  THE  POINTER 

DSZ 

BFRCT 

{DEC  THE  COUNT,  SKIP  WHEN  DONE 

J'',  P 

INTRL 

{RELEASE  THE  INTERRUPT 

SUB 

1,1, SKP 

{SET  FLAG  0 

ERROR: 

ADC 

I ,1  ,5KP 

•SET  FLAG  -1 

j'lP 

DONE 

LOA 

0, PM3CD 

{PHASE  3 ERRUR  CODE 

LOA  3 

2,ERTBL 

{ERROR  TABLE 

ISZ 

ERTBL 

{INC  the  POINTER 

INC 

0,0 

;iNC  the  count 

COM  A 

2, 2, SNR 

{SKIP  IF  NOT  EOT 

JMP 

. + 3 

SJB  A 

2,3, SZR 

{SKIP  IF  ERROR  FOUND 

JMP 

.-6 

{LOOP  BACK 

JRP 

.+2 

5TiER: 

AOC 

0,0 

{SYSTEM  ERROR  CODE 

ST  A 

0,ERC0D 

{HOLD  ERROR  COUNT 

. iNf ; 

M JC 

MUX 

{RESET  MUX 

INTOS 

{DISABLE  INTERRUPTS 

S.'B 

0,0 

{CLEAR  AGO 

MSKO 

c 

{CLEARMALL  INTERRUPT  MASKS 

LJ  A 

0,INTSV 

{RETRIEVE  RDOS  INTERRUPT  VECTOR 

.'4 

0,1 

1 . IE  ^ 

{ENABLE  INTERRUPTS 

% t 

• k 

1 , 1 , SNR 

{SKIP  IF  NO  ERROR 

kP  4 

iRRTN 

* k 

CSRF  1 

{CREATE 
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&- KNL  : 


NAMEE 

T'TEMPB.TM' 

j'  R 

CjPFLl 

ICiPF.N 

NAMEB 

: 'TEMOb  . TM ' 

33 

;JN  CH  R3 

jS  R 

lU 

T>1P01 

J.LU’PUT  HS  BUFFER 

JSR 

CLFLl 

;clcse 

03 

t c H 3 

. jA 

1 .MAGFG 

;mag  tape  flag 

m:  V 

K 

1 , 1 , SNR 

'.SKIP  IF  MAG  TAPE 

JMP 

a) 

C VR  T N 

IRETUPN  TO  ROOT 

BINARY 

JSR 

d 

OPFl  1 

; OPEN 

NttMEB 

; 'TEMPB.TM' 

OA 

.'CN  CH  rA 

JSR 

a) 

QPiMTl 

;DFEN  MAG  TAPE 

FUR  FF 

\AMF  4 

r 'MTO: B ' 

03 

;0N  CH  Hi 

SjB 

0.0 

ICLEAR  ACO 

ST  A 

O.BLKNC 

{BLOCK  R 

JSR 

RDBL  1 

{READ  A DISK  BLOCK 

0 

{BLOCK  H 

.+A 

{EOF  RETURN 

jSR 

i 

MT  A Wl 

{rtRlTE  BLOCK  TO 

MTA 

ISI 

blknc 

{INC  BLOCK  « 

JRP 

.-5 

jSR 

a) 

MTAEl 

{WRITE  EOF 

J.‘-R 

is 

MTASl 

{SPACE  REVERSE 

JSR 

V 

CLFL  1 

{CLOSE 

03 

{CH  A3 

JSR 

CLFL  1 

.'CLOSE 

CA 

{ C H A A 

J'lP 

s) 

GVRTN 

{RETURN  TO  ROOT 

BINARY 

S^RST:  H56JF+i 

ROT  : HSBJF 
B'RCT;  b:AC3*l 
B-KC’’:  BBACJ/AOO 


.'START  UF  H5  BUFFER 
;BUFFcR  pointer 

, 'BUFFER  COUNT 

BLOCKS  IN  HS  BUFFER 


C<RF1  : 

crrfl 

{CREATE 

RANDOM  file 

C ’ F L 1 : 

UPFlE 

.'OPEN  A 

CHANNEL 

C-FlI: 

CLFLE 

{CLOSE 

A CHANNEL 

GDMTl  : 

OPMTA 

{OPEN  MflG  TAPE  FOR  fr 

RSBL  1 : 

RCBLK 

{READ  A 

DISK  BLOCK 

TMPDl  : 

TMPOT 

{OUTPUT 

HS  BUFFER  TO  DISK 

MT AWI : 

KTAwT 

{OUTPUT 

BLOCK  TO  MAG  TAPE 

MT AE  1 : 

MT  AEF 

{WRITE 

EOF  ON  MTA 

M T A 5 1 : 

M'  ASR 

{SPACE 

REVERSE  1 RECORD 

H3C0: 

lOD 

'.PHASE  3 ERROR  CLOE 

ERTBL: 

.M 

{ERROR  TABLE  POINTER 

ERRl 

{MUX  ERROR 

-1 

{END  OF  TABLE 

Cl  1 : 

11 

Cl 

1 - 

CRRTN: 

C 

{RETURN  ADDRS 

crrfl: 

L3A 

0.0.3 

{NAME  POINTER 

I'xC 

3.3 
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STA 

3,CRRTN 

JSTDRE  RETURN 

C^RFA: 

ST  A 

3,USP 

;STORE  RETURN 

.SYSTH 

.CRANO 

JHP 

.♦2 

ICREATE  RANDOM  FILE 

JHP 

0,3 

INCRMAL  RETURN 

L3A 

1,C11 

SUB  tt 

1,2,SZR 

fSKIP  IF  FILE  EXISTS 

jSR  d 

SYSEl 

;ERROR 

JSR 

OELEA 

IDELETE  THE  FILE 

JSR 

CRRFA 

JTRY  AGAIN 

-JMP  a 

CRRTN 

JRETURN 

DELET: 

LD  A 

0,0,3 

;name  pointer 

INC 

3,3 

CELEA: 

STA 

3,USP 

;STCRE  RETURN 

•S YSTM 
.DELET 
JMP 

.+2 

JOELETE  THE  FILE 

J''P 

0,3 

INCRMAL  RETURN 

LDA 

1,C12 

SUB  n 

1,2,SZR 

JSKIP  IF  NO  FILE  EXISTS 

JSR  a 

SYSEl 

;ERR0R 

JMP 

0,3 

INORMAL  RETURN 

QDMT a: 

ADC 

1,1 ,SKP 

;SET  FLAG  -I 

QPFLE  : 

SUB 

1,1 

{SET  FLAG  0 

LDA 

0,0,3 

{NAME  POINTER 

LDA 

2,1,3 

{CHANNEL  n 

STA 

3,USP 

{HOLD  RETURN 

Mav  n 

1,1, S2R 

{SKIP  IF  REGULAR  OPEN 

JMP 

.♦5 

.S YSTM 
.3  PEN 

77 

{OPEN  THE  CHANNEL 

JSR  a 

SYSEl 

{ERROR 

JMP 

2,3 

{NORMAL  RETURN 

INC 

1 ,1 

{DEFAULT  CHARACTERISTICS 

.SYSTM 

.mtdpd 

77 

{OPEN  MAG  TAPE  FOR  FF 

JMP  D 

SYSEl 

{ERROR 

JMP 

2,3 

{NORMAL  RETURN 

SY  SE  1 

ISYSER 

{SYSTEM  ERROR 

E3Fmk: 

OCO^OO 

{EOF  ERROR  MASK 

Cmd: 

C40001 

{SPACE  REVERSE  COMMAND 

EPCMO: 

06000Q 

{EOF  WRITE  COMMAND 

wTCMD: 

050^.00 

{WRITE  COMMAND 

MT ASR: 

LDA 

1 ,SRCMO 

{SPACE  REVERSE  COMMAND 

JMP 

.*2 

M r A E F : 

LDA 

1 ,EFCMD 

{ECF  WRITE  COMMAND 

JMP 

. + 3 

nr  AWT : 

LCA 

O.BFRST 

{START  OF  HS  BUFFER 

LDA 

1 ,WTCMD 

{WRITE  COMMAND 

STA 

3,USP 

{HOLD  RETURN 

•SYSTM 

.MT013 

03 

{MAG  TAPE  FF  I/O 
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JMP 

.♦2 

JMP 

0,3 

INDRMAL  RETURN 

LUA 

1 ,E jFMK 

;edf  error  mask 

AND  t> 

1,2, SNR 

;SK1P  IF  EOF 

J5R  d 

SYSEl 

TERROR 

J'lP 

0,3 

TNDRHAL  RETURN 

Tif'Cr: 

LDA 

O.BFRST 

TSTART  OF  HS  BUFFER 

S'JB 

1,1 

{RELATIVE  BLOCK  ADDRS  0 

lda 

2,BLKCT 

;A  BLOCKS 

Mil  vs 

2,2 

5:a 

3,U5P 

, 'STORE  RETURN 

.S YSTM 
.riRB 

03 

{WRITE  the  H5  buffer  TO  DISK 

J.SR  3 

SYSEl 

TERROR 

JMP 

0,3 

{NORMAL  RETURN 

KDbAKt 

0 

{RETURN  ADDRS 

kDpLk: 

LLA 

1,0,3 

{BLOCK  « 

LDA 

0,1,3 

{EOF  RETURN  ADDRS 

ST  A 

0,RDBAK 

{STORE  ADDRS 

LDA 

0,BlKPT 

{BLOCK  BUFFER  POINTER 

LDA 

2,BLKSZ 

{BLOCK  SIZE 

ST  A 

. ' YSTM 

3,  JSP 

{STORE  RETURN 

.RDB 

O', 

{READ  A DISK  BLOCK 

JMP 

. *2 

{ERROR 

JWP 

2.3 

{NORMAL  RETURN 

lDA 

UEDFCO 

{EOF  CODE 

SJB  H 

1,2,SZR 

{SKIP  IF  EOF 

JSR  J 

SYSEl 

{SYSTEM  ERROR 

JMP  a 

RDBAK 

{EOF  RETURN 

BLKPT  : 

hSBUF 

{BLOCK  BUFFER  POINTER 

B.KSi: 

OOODOO 

{BLOCK  COUNT  1 

E ]FCD: 

06 

{EOF  ERROR  CODE 

C.FLE  : 

LDA 

2,0,3 

{CH  R 

STA 

3,USP 

{riOLO  RETURN 

...YSTM 

.CLDS 

77 

{CLOSE  the  channel 

jMP  i 

SYSF  1 

JMP 

1,3 

{NORMAL  RETURN 

.T  XTM 

1 

N)«E A= 

• TXT 

/MTC;5/ 

M M r B = 

.^•-2 
• Tx; 

/; empb  . 

TM/ 

HStUF  = 

.JLK 

0 

BDACC+1 

;hS  output  buffer 

• END 
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A-5.  Overlay  Module  No.  4 — PHAS4.SR 
\;kE  :iLK<  ^^4ME=  PHAi^t.S^ 


TiHE  SLJCK 

•TITL  PHAS4  ;JCI  10  MAR  76 
. r X T M 1 

.ENT  LiVSTR 

.fXTD  OVRTN  ERRTN  ERCDD  MAGEG  5MPRT 

.EXTD  BLKCT  HLDCT  LSMON 

.EXTN  MSKTB  LSBTB 

.NREL 


BJFSZ: 

BDAC9 

BJFF  T : 

MT  ABF 

CnRFI  ; 

crrfl 

U=FLl: 

UPFLE 

D^MT  i; 

OPMTA 

DONE  1 : 

DONE 

OVSTa: 

SUB 

Ot'J 

STA  .) 

O.BUFPT 

ISZ 

BUFPT 

osz 

BJFSZ 

JMP 

.-3 

JSR  i) 

LPFL  1 
NAMEC 

OA 

lOA 

1 .MAGFG 

MOV  R 

1,1 ,SZR 

JMP 

. + 7 

JSR  i 

CRRF  1 
NAMEB 

JSR  2 

DPFLl 

NAMEB 

03 

uMP 

.♦A 

JSR  2 

oPMTl 

NAMEA 

03 

LDA 

1 .BLKST 

LDA 

O.BLKCl 

SUB 

1,0 

MOV  H 

0,0 , SNR 

JMP  i 

DUNE  1 

STA 

G,BLKCT 

LOA 

1 ,SMPRT 

SUB 

0,0 

MOV 

0,Z 

;recuced  data  buffer  size 

IBUFFER  POINTER 
JCREATE  RANDOM  FILE 
;QPEN  A FILE  (NORMAL) 

;OPEN  FF  MAG  TAPE  FILE 
lUKAPUP 

;CLEAR  AGO 

;RES£T  reduced  DATA  BUFFER 


.‘OPEN 

;'BDACS.CA' 

;CN  CH 

}MAG  TAPE  FLAG 
;SKIP  IF  NO  MAG  TAPE 

ICREATE  A RANODM  FILE 
; ■ TEMPC .TM  ' 

; D F E N 

I'TEMPC.TM’ 

;UN  Cri«3 

;FF  OPEN 
; 'MTO:!' 

JON  CHA3 

JOATA  BLOCK  START  CUUNT 
{CURRENT  COUNT 
{FORM  NEG  DIFF 
JSKIP  IF  DATA  STORED 

JSET  COUNT 

{SAMPLE  RATE 

{CLEAR  ACO,  ACZ,  AC3 
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ERRl  : 


LlO: 


LJ : 


MQV 

0,3 

ADDZ 

1 ,3,SZC 

lOETERMlNE  HOLDOFF  TIME  PER  FILL 

INC 

2,2 

DSZ 

CNTRO 

iSKIP  WHEN  DONE 

JMP 

.-3 

LDA 

1,HLDCT 

{HOLDOFF  COUNT 

MOV  « 

1,1 , SNR 

{SKIP  IF  HOLDOFF 

JMP 

LLO 

ST  A 

1, CNTRO 

{HOLD  COUNT 

MOV 

0,1 

{CLEAR  ACl 

ADDZ 

3,1 ,SZC 

{DETERMINE  TOTAL  HOLDOFF  TIME 

INCZ 

0,0, SNC 

{SKIP  IF  OVERFLOW 

ADDZ 

2,0,SZC 

{SKIP  IF  NO  OVERFLOW 

JSR  a 

ERROl 

{ERROR  ROUTINE 

DSZ 

CNTRO 

{SKIP  WHEN  DONE 

JMP 

.-5 

STA 

0, TIMER 

{STORE  THE  TIME 

ST  A 

1 ,TIMER+1 

LDA 

0,HLOCT 

{GET  HOLDOFF  COUNT 

STA 

0, CNTRO 

{RESET  THE  COUNT 

SUB 

0,0 

{CLEAR  ACO 

LDA 

1 ,HLOOV 

{ROUND  ROBIN  OVERFLOW  PER  FILL 

LDA 

2,RRCNT 

{ROUND  ROBIN  COUNT 

ADD 

1,0 

{ADD  OVERFLOW 

SUBZ  n 

2,0,SZC 

{SKIP  IF  AC2SAC0 

SUB 

2,0 

{ELSE  RESET  THE  OVERFLOW 

DSZ 

CNTRO 

{SKIP  WHEN  DONE 

JMP 

.-ti 

M3V  « 

0,0, SZR 

{SKIP  IF  NO  NET  OFFSET 

STA 

0,PRADD 

{UPDATE  PREVIOUS  ADDRESS 

LDA 

2,LSM0N 

{L5  BUFFER  MONITOR  POINT 

ADCZ 

0,0 

{FORCE  -1, CLEAR  CARRY 

NE  & 

2, 2, SZR 

{SKIP  IF  NO  LS 

M3VL 

0,0, SKP 

{FORM  THE  LS  MASK 

JMP 

.♦3 

INC 

2, 2, SZR 

{SKIP  WHEN  DONE 

JMP 

.-3 

STA 

0,LSBMK 

{STORE  THE  MASK 

RE  ADS 

0 

{READ  SWITCHES 

ADDZL  « 

0,0, SNC 

{SKIP  IF  NO  ERROR  RECOVERY 

JMP 

LLl 

JSR  a 

GTBWl 

{GET  A LS  WORD 

LDA 

2 ,PRADD 

{GET  PREVIOUS  LS  OFFSET 

LDA 

I ,RRCNT 

{MAX  COUNT 

ADCZ  » 

2, 1 , SNC 

{SKIP  IF  AC2<AC1 

SUP 

1,2 

{RESET  THE  OFFSET 

INC 

2,2 

{INC  THE  OFFSET 

STA 

2,PRADD 

{RESTORE  THE  CURRENT  OFFSET 

JSR  a 

RDBWl 

{REDUCE  LS  WORD 

JSR  a 

GTBWl 

{GET  A HS  WORD 

S J 0 

2,2 

{0  OFFSET 

JSR  a 

RDBWl 

{REDUCE  HS  WORD 

JSR 

INTMR 

{INC  the  timer 

JMP 

lO 

{LOOP  BACK 

I 


't'. 
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H . DOV: 

BDAC7  + BDAC8/BDAC7«-BDAC7-B0AC8 

f-N  AOO : 

BOAC  7 

.'PREVIOUS  LS  AOORS 

R^CNT : 

BDAC7 

of  LS  WORDS 

BLkST; 

B:JACE»2 

;max  data  block  count 

CNTRO: 

BOAC8 

;«  CF  HS/LS  pairs  per  BUFFER 

LSMSk: 

160000 

;ls  addrs  mask 

H9bTR; 

0 

JDATA  WORD  STORAGE 

H5PNT: 

MSKTB 

TREPORTED  POINTS  MASK  TABLE 

crBwi: 

&TB<ID 

;GET  a BUFFER  WORD 

RJBWl : 

ROBWO 

JREDUCE  A BUFFER  WORD 

ERROl : 

ERROR 

{ERROR  ROUTINE 

timer: 

0 

0 

{CURRENT  TIME 

IJTMR: 

LDA 

O.SMPRT 

{SAMPLE  RATE 

LDA 

1 .TIMER 

{CURRENT  TIME 

LDA 

2»TIMER+i 

ADDZ 

0,2,SZC 

{UPDATE  THE  TIMER 

1\CZ 

1,1. SNC 

{SKIP  IF  OVERFLOW 

JMP 

. + 2 

JSR  a 

ERRDl 

{ERROR  ROUTINE 

ERR2  : 

ST  A 

1, TIMER 

{RESTORE  TIMER 

ST  A 

2,TIMER+1 

LDA 

O.LSMON 

{LS  BUFFER  MONITOR  POINT  « 

MOV  « 

0,0, SNR 

{SKIP  IF  BUFFER  IN  USE 

JMP 

0,3 

{RETURN 

ISZ 

LSPNT 

{INC  LS  POINT  COUNT 

LDA 

O.LSWMK 

{LS  WORD  MASK 

MQVZL 

0,0, SZR 

{SHIFT,  SKIP  IF  OVERFLOW 

JMP 

.*3 

ISZ 

LSOFF 

{INC  OFFSET  COUNT 

SUBZL 

0,0 

{RESET  MASK 

STA 

O.LSWMK 

{RESTORE  THE  MASK 

LDA 

O.LSDFF 

{GET  OFFSET 

LOA 

1 ,LSMAX 

{MAX  OFFSET 

SUBZ  tt 

0,1  ,SZC 

{SKIP  IF  ACOACl 

JMP 

.♦5 

SUB 

0,0 

{CLEAR  ACO 

STA 

O.LSDFF 

{RESET  THE  OFFSET 

LOA 

O.LSFST 

{1ST  LS  POINT 

STA 

0, LSPNT 

{RESET  THE  POINT  COUNT 

JMP 

0,3 

{RETURN 

L.  1 : 

SUBZL 

0,0 

,'♦1  INITIAL  HS  COUNT 

STA 

0, CNTRO 

{HS  COUNT 

LI  : 

SUB 

0,0 

{CLEAR  ACO 

STA 

O.SEQFC 

{RESET  ERROR  FLAG 

JSR  S 

GT6M1 

{GET  A BUFFER  WORD 

MOVL 

0,0, SNC 

{SKIP  IF  HS  WORD 

JMP 

L2 

MQVZR 

0,0 

{RESET  HS  BIT 

SUB 

2,2 

{0  OFFSET 

JSR  d 

ROBWl 

{REDUCE  HS  WORD 

ISZ 

CNTRO 

{INC  HS  COUNT 

JSR 

INTMR 

{INC  TIMER 
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I 


-MP 

LI 

LUrP  BACK 

: 

lDA 

1 .LFMSK 

,LS  KASk 

A\D 

U,  1 

KASK  THE  ADORS  BITS 

S JE 

1 1 C 

FORM  DATA  WORD 

N ■ V I R 

3,0 

i 'A 

O.WJSTR  ;S11RE  FftiE  CATA 

A:3ZL 

1,1 

.'Hi  FT  A DDRS  SITS 

^3Vl. 

1 ,1 

. 

F*  . VL 

1,1 

L.  A 

^ , PRADO 

PREVIOUS  LS  ALDKS 

iF  A 

! , PRADD 

STORE  CURRENT  L5  AODRS 

l;.  A 

O.RRCM 

ROUND  RjBIN  count 

ATCZ  ^ 

E . 1 , SNC 

SKIP  IF  acekaci 

a:  0 

J,  1 

AOC-  HOOJLUS 

i.fa 

E,  1 

FCKiftADD'^SDlFF  1; 

A.C 

E,E 

FORCE  -1 

1 ' A 

c,CNnkc 

H S COUNT 

A:  :)  ft 

E, 1 , SAR 

SKIP  IF  0 1 F F NOT  ♦ 1 

Ai:  j ft 

■ 0,  SZR 

SKIP  IF  H5  COUNT  +1 

LA 

l\C 

E,E 

CLEAR  ACE 

S"  A 

E ,CM1 KC 

RESET  nS  COUNT 

: 

L'JA 

0,W0STR 

RETRIEVE  THE  DATA  ' 

i.:a 

E, PRADO 

LS  OFFSET 

JSR  j 

ROBIk  1 

REO'UCE  LS  WORD 

J'^p 

LI 

,.O.LP  BACK 

L '.  : 

SJPZ 

0,1, SNC 

FORM  DIF-',  SKIP  IF  ACC<  = AC1 

jSK  j) 

E K R 0 1 

ERROR  ROUTINE 

t < R 3 : 

STA 

1 ,CNTRO 

FORCE  COUNT  TO  DIFF 

ISZ 

SEQER 

INC  ERRuR  COUNT 

ISZ 

St  OFO 

SET  ERROR  F LAC- 

l;.a 

0, SELER 

ERROR  COUNT 

L j A 

E.SEUMX 

■ftAX  COUNT 

SJ0Z  ft 

E,0, SZC 

SKIP  IF  AC?>AC0 

JSR  i 

ERROl 

ERROR  ROUTINE 

E3r^: 

MC  V ft 

1 , 1 ,SNR 

SKIP  1=  NONZERO  COUNT 

JM  P 

L’ 

jSR 

I T M R 

, INC  TIMER 

Si  z 

CNTRO 

JSKIP  WHEN  DONE 

J''p 

.-E 

J'FP 

L3 

S:  Q'^x: 

B.'ACN 

[MAX  ft  SEQUENCE  ERRORS 

SrtFR: 

0 

'SEQUENCE  ERRORS 

uMk  : 

OCOAOJ 

(SECUEN  E ERROR  MASK 

S; UF«: 

VJ 

SEQUENCE  ERROR  FLAU 

L .S  n « R : 

1 / 7 7 7 7 

[LS  BUFFER  MASK 

t - xMk: 

000001 

,LS  WORD  MASK 

L 3 F S T : 

0-.0333 

♦B0AL6 

,r IFST  LS  POINT  ft 

L FM: 

CsC03J  + e JACO 

,CURRFN’  LS  POINT  ft 

L ' A X : 

boa: 3- 

1 

,MAX  LS  OFFSET 

L J uF  F : 

0 

.CURRENT  LS  OFFSET 

lstpt; 

L'.  BTB 

.start  op  LS  mask  table 

1.  ;>  R T f, : 

C 

[RETURN  AODRS 
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L . b 5 j : i I A 

1 1 L > R I N 

roFst  R ETlRN 

.DA 

3,LiTPT 

;srAkT  lF  table 

L'^A 

D » L SiJ  b F 

IDFFSET 

ADD 

Of  3 

;Tt)E  POINTER 

lDA 

1.0.3 

JREPORTEO  POINTS  MASK 

.DA 

C.lSRMK 

;wbRD  MASK 

A D U 

a. 1 . SNR 

;SKIP  IF  REPORTED 

LSI 

L.J  A 

l,Br.AC3, 

p JPREVIOJS  VALUE 

V.„  VL 

2,2 

;MDV  CURRENT  STATE  TQ  CARRY 

K^V 

1 .z .szc 

;MLV  PREV.  VALLE,  SKIP  IF  0 CURRENT 

C'jM 

2,2 

;CClM  PREVIOUS  VALUE 

fiV  It 

0 . i; . SNR 

jSKiP  IF  chanoe  occurred 

JV,  P 

LSI 

c:  M 

U.  0 

fCCM  WORD  MASK 

A .D 

0,1 ,S1C 

;TURN  off  bit,  skip  if  TO  TURN  UFF 

ADC 

0,1 

;tlrn  on 

ii  A 

1 .BDAC3 , 

3 IRESTQRE  UPDATED  MASK 

LDA 

l.LSPNT 

JLS  BUFFER  POINT  A 

SUBCR 

2.2.SKP 

, 'RETRIEVE  CURRENT  STATE  BIT 

L : S j E 

1.1 

;SET  Flag  o 

JMP  D 

LSRTN 

;return 

RDEwD;  SA 

i.RDRTN 

;RETJRN  POORS 

LDA 

3.HSPNT 

JMASK  TABLE  POINTER 

ADD 

2,3 

;add  in  offset 

LDA 

1.0,3 

fREPjRTED  POINTS  MASK 

A\D 

1,0 

;mask  tpe  rdrd 

LDA 

1 .BOACl , 

3 {PREVIOUS  value 

STA 

O.BDACl , 

3 {UPDATE  PREVIOUS  VALUE 

ADDZ  L 

2,2 

{FORM  POINT  A (MULT  BY  lb) 

A D 0 Z L 

2,2 

5 T A 

2, STNBR 

{HOLD  THE  POINT  P 

L 

0,2 

{COM  PRESENT  VALUES 

L.  M 

1,3 

{CUM  PAST  VALUES 

AND 

2,3 

{FORM  SAME  O'S  MASK 

AND 

0,1 

{FORM  SAME  I'S  MASK 

ADD 

3,1 

{MASK  OF  NON  CHANCED  POINTS 

L’' A 

3,LSMDN 

;LS  buffer  MONITOR  POINT 

L^A 

2, STNBR 

{PRESENT  n 

NDV  n 

3, 3, SIR 

{SKIP  IF  NO  MONITOR  BUFFER 

V.DV  It 

2,2 , SIR 

{SKIP  IF  HS  WORD 

JM  p 

.♦3 

LDA 

2,LSBHK 

ILS  BUFFER  MASK 

AND 

2,1 

{SET  THE  LS  BIT 

CDM 

1,1 

{FORM  CHANCES  MASK 

.p'l:  m:  V a 

1 ,1 ,SNR 

{SKI?  IF  MURE  CHANCES 

JNP  Nl 

RDR^N 

{RETURN 

ISZ 

STNBR 

{INC  POINT  # 

0,0 

{MOV  PRESENT  VALUE  TO  CARRY 

SJBCR 

2,2 

{MOV  value  id  IBO 

MCVZ  A 

1 . 1 . SNC 

{SKIP  IF  chance 

J'lp 

LPl 

iTA 

0,HL0PR 

{HOLD  the  remaining  VALUES 

iT  A 

1 ,rtLDOF 

{HOLD  THE  DIFF  MASK 

LDA 

1 , STNBR 

{RETRIEVE  POINT  t 

LDA 

O.L  SMDN 

;ls  buffer  mlnitor  point 

f 


/ 
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SUB  ft 

0.1 tSNR 

;SKIP  IF  NOT  LS  POINT 

JSR 

LS6RD 

IREOUCE  THE  LS  POINT 

MOV  ft 

1.1 .SNR 

ISKIP  IF  STORAGE  REQUIRED 

JMP 

LP2 

ADD 

1.2 

.'ADD  IN  POINT  ft 

SUB 

1.1 

JCLEAR  AC2 

LDA 

3,SEQF& 

ISEQUENCE  ERROR  FLAG 

MOV  ft 

3. 3, SIR 

;SKIP  IF  NO  ERROR 

LDA 

l.SEQMK 

SSEQUENCE  ERROR  MASK 

ADD 

1.2 

;add  in  error  mask 

sta  a 

2,MTABP 

ISTORE  state. POINT  ft,  AND  ERROR  FLAG 

ISZ 

MTABP 

;INC  THE  POINTER 

LDA 

2, TIME 

.•TIME  POINTER 

lDA 

1.0.2 

IMS  TIME 

sta  9 

1 .MTABP 

ISZ 

MTABP 

LDA 

1.1.2 

;LS  TIME 

STA  3 

1 .MTABP 

ISZ 

MTABP 

DSZ 

MTACT 

;SKIP  WHEN  BUFFER  FULL 

JMP 

LP2 

LDA 

1 .MAGFG 

.•MAG  TAPE  FLAG 

MOV  ft 

1 .1 .SIR 

JSKIP  IF  NO  MAG  TAPE 

JMP 

.♦3 

jsr  a 

TMPQl 

IWRITE  BUFFER  TO  DISK  FILE 

JMP 

.+  2 

JSR  9 

MTAOl 

;WRITE  BUFFER  TO  MAG  TAPE 

LDA 

1 .MTAST 

IRESET  INITIAL  BUFFER  POINTER 

STA 

1 .MTABP 

LDA 

I .MTASZ 

{RESET  BUFFER  COUNT 

sta 

1 .MTACT 

L32: 

LDA 

O.HLDPR 

{RETRIEVE  PRESENT  VALUES 

lDA 

1 .HLDDF 

{RETRIEVE  DIFF  MASK 

JMP 

LPl 

{LOOP  BACK 

RORTNi: 

0 

{RETURN  ADORS 

STNBR: 

0 

{POINT  ft 

H^DPR: 

0 

{PRESENT  VALUES  STORAGE 

H^DOF  : 

0 

{DIFF  MASK  STORAGE 

M’’  AST: 

MT  ABF 

{MAG  TAPE  BUFFER  START 

MT ABP: 

MTABF 

{BUFFER  POINTER 

MT  AS2: 

ADD 

{REDUCED  DATA  BUFFER  SIZE 

MT AC  T : 

ADO 

{BUFFER  COUNT 

time: 

TIMER 

{CURRENT  TIME  POINTER 

C^03: 

-BDACL 

{SIZE  OF  REDUCED  DATA  BUFFER  ENTRY  (NEG) 

C2  0: 

20 

CW  TRl  : 

0 

{BIT  COUNT 

0'^FL2  : 

OPFLE 

{OPEN  A CHANNEL 

CLFL  1 : 

CL  FLE 

{CLOSE  A CHANNEL 

TMPOl : 

TMPOT 

{DISK  OUTPUT  ROUTINE 

MTADl : 

MTAOT 

{MAG  TAPE  OUTPUT  ROUTINE 

MT  AE  1 : 

MTA.FM 

{WRITE  MAG  TAPE  EOF 

M r A s 1 : 

MT  ASs 

{SPACE  REVERSE  I RECORD 

D JNE  : 

SJB 

0.0 

{CLEAR  ACD 

LDA 

2.CM03 

{MEM  ENTRY  SIZE 
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srscD; 

P'^4CD: 
7PL  : 

ES  ROR : 

SYSER: 

orbwo: 


MQV 

2,1 

STA 

•1 

OtMTABP 

;null  fill  remaining  buffer  space 

ISZ 

MTABP 

:INC  POINTER 

INC 

1.1, SZR 

{ENTRY  COMPLETE 

J'^P 

.-3 

DSZ 

MTACT 

{SKIP  WHEN  DONE 

JMP 

.-6 

LDA 

1 .MAGFG 

{MAG  TAPE  flag 

MOV 

1,1, SZR 

{SKIP  IF  NO  MAG  TAPE 

JMP 

.♦3 

JSR 

d 

TMPDl 

{WRITE  BUFFER  TO  01 SK  FILE 

JMP 

. + R 

JSR 

i 

MTAQl 

{WRITE  BUFFER  TO  MAG  TAPE 

JSR 

a 

MTAEl 

{WRITE  EOF 

JSR 

a 

MTASl 

{SPACE  REVERSE  1 RECORD 

JSR 

a 

CLFLl 

{CLOSE 

03 

{CH  »3 

JSR 

a 

CLFLl 

{CLOSE 

OR 

{CH  AA 

JMP 

a 

OVRTN 

{RETURN  TO  ROOT  BINARY 

U 

{SYSTEM  ERROR  CODE 

200C 

{PHASE  R ERROR  CODE 

.♦1 

{ERROR  TABLE  POINTER 

ERRl 

bRR2 

ERR3 

ER  RR 

-1 

{END  OF  TABLE 

INTEN 

{ENABLE  INTERRUPTS 

LDA 

0,  PHRCD 

{PHASE  A ERROR  CODE 

LDA 

a 

2,ERTBL 

{ERROR  TABLE  ENTRY 

ISZ 

ERTBL 

{INC  TABLE  POINTER 

INC 

0,0 

{INC  COUNT 

CCM 

u 

2, 2, SNR 

{SKIP  IF  NOT  EOT 

JMP 

. + 3 

SUB 

H 

2, 3, SZR 

{SKIP  IF  ERROR  FOUND 

JMP 

.-6 

JSR 

a 

CLFLl 

{CLOSE 

03 

{CH  *3 

JSR 

a 

CLFLl 

{CLOSE 

OR 

ICH  «A 

JMP 

. + 2 

ADC 

0,0 

{SYSTEM  ERROR  FLAG 

STA 

O.ERCDD 

{STORE  IN  ROOT  BINARY 

JMP 

a 

ERRTN 

{ERROR  RETURN 

S*  A 

3,&TRTN 

{STORE  RETURN  ADDRS 

DSZ 

BFRCT 

{DEC  COUNT,  SKIP  WHEN  EMPTY 

JMP 

GTBOF 

LDA 

O.BLKCT 

{DATA  BLOCK  COUNT 

MOV 

n 

0,0, SNR 

{SKIP  IP  NOT  DONE 

JMP 

a 

DONE  2 

INC 

0.0 

{INC  THE  COUNT 

STA 

o.blkct 

{RESTORE  THE  COUNT 

LDA 

1 .BLOCK 

{CURRENT  DATA  BLOCK 
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B - ^ S T ! 
b=  kP  : ! 
0 - k 5 Z : 
B'^SCT! 
B-CCK: 
fc. k:f : 

T/PM. : 
iViE  1 i 
P ; <E2: 

& : « T \ : 

D-'^rtn: 

D^STR: 

3 ^ B P T : 

cue: 

CtO: 

PITRO: 


L3A 

OfBLKCF 

;blcck  offset 

M3VS 

0,2 

;SET  BLOCK  COUNT 

Arc 

1,0 

;jPDATE  CURRENT  FLOCK 

ST  A 

O.BLCCK 

l3A 

u,3FRST 

iSTART  OF  DATA  BtFFER 

ST  A 

0,BFRPT 

;reset  tme  buffer  pointer 

.S YSTM 

.PDB 

04 

;read  the  data  block  into 

JMP  £ 

SYSE  1 

;SYSTEH  ERROR 

L.  A 

o,BFRS2 

IBUFFER  SIZE 

ST  A 

0,BFRCT 

;reset  the  count 

LDA  i 

0,BFRPT 

;SET  £UFD  frl-m  buffer 

m:vs 

0,0 

;SWAP  THE  BYTES 

IS  z 

BFRPT 

;:nc  The  pointer 

READS 

I 

;READ  SWITCHES 

m:vr  c 

1 , 1 , SNC 

;SKIP  IF  lElS 

JVP  £ 

l,TRTN 

TRETURN 

JSR 

DMPWD 

leuF'.p  the  word 

j'lp  i 

GTR’N 

;kETURN 

;; tart  of  buffer 

b J F F R 

.•Buffer  pointer 

BC'ACrt 

;SUFFtR  SIZE 

Cl 

IBUPFER  COUNT 

r, 

ICURRENT  DATA  BLOCK 

1- 

JELOCK  T’FFSET  {14  SECTORS ) 

TYP'lu 

;’’YFE  A MESSAGE 

SY  SER 

JSYSTEM  ERROR  ROLTnE 

r..NE 

IWRAPUP 

3 

{RETURN  AODRS  STORAGE 

e 

{RETURN  AODRS  STORAGE 

r 

{.ATA  S’URAGE 

c-yss/z 

{.,CRD  POINTER 

-10 

{ftOFU  COUNT 

tz 

{KO 

“ 

{UTILITY  POINTER 

ST  A 

J,L)PS  TR 

{hOlO  OAfA  W'ORL 

S' A 

3 , D P ^ T N 

{STORE  RETURN  ADLPS 

LCA 

3 , C ' I u 

{SET  rORD  COUNT 

LC  A 

1 , J?  8 E i 

{BUFFER  POINTER 

ST  A 

1 ,PNTKO 

LDA 

1 ,C6C 

{<0> 

MDV 

1.2 

0,0. SZC 

{SKIP  IF  BIT  0 

INC 

1 , 1 

{ < 1 ■’ 

1,1 

{SrAP  the  byte 

yi  VL 

0,0, SZC 

{SKIP  IF  BIT  0 

: c 

2,2 

{vl> 

Ai,: 

<^,1 

{ALD  RH  BYTE 

S'A  i, 

1 , PNTRC 

{5*:RE  'HE  BYTES 

ISZ 

PNTRC 

{INC  ’nc  pointer 

i \ C 

3 , 3 , S Z R 

{ INC  COUNT,  SKIP  »Ht.N  DGNf 

K 1 

{LC^r-  PACK 

w * R i 

TvPi  1 

{lYFE  THE  MESSAGE 
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ur^1S0  OCM° 

C..A  O.jPStR  ;!<tTRIEVt  DATA  WCftD 

9j  DPRTN  ;f.ETljRN 


Cl  FLE : 

lda 

2.0,3 

S*  A 

.SYSTM 

3,USP 

.ClUS 

77 

J''P  i 

SYSE  1 

JMP 

1,3 

U^m.fa: 

AFC 

1.1 ,SKP 

L P F L E : 

SJB 

1 , 1 

LDA 

0,0,3 

lDA 

2,1,3 

SPA 

3,uSP 

M V ft 

1 , 1 ,SZR 

JMP 

.S YSTR 

.■^5 

.-■PEN 

77 

JMP  i 

SYSE  1 

J-IP 

2,3 

INC 

.SYSTM 

1,1 

.'ITJPD 

77 

J1P  i) 

SYSEl 

j'^P 

2,3 

ci  1 : 

11 

C’.  i : 

\i 

CRRTn: 

C 

CRRFl: 

lda 

C,0,3 

INC 

3,3 

:.TA 

3,CRRTN 

C^RFa: 

ST  A 

.SYSTM 

.C  ranj 

3,USP 

JMP 

.♦2 

J'*P 

0,  3 

lDA 

1 ,C  1 1 

S'JB  ft 

1 ,2  ,SZR 

JMP  (D 

SYSEl 

JSR 

DELEA 

JSR 

CRRF  A 

JMP  i 

CRRTN 

D F L E r : 

LDA 

0,0,3 

INC 

3,3 

DELEA: 

STA 

.SYSTM 

.OELET 

3,USP 

JM  P 

. + 2 

JMP 

0,3 

LDA 

1 ,C12 

SJB  ft 

1,2,5ZR 

JMP  S 

SYSEl 

JMP 

0,3 

; CH  ft 

iSTERE  RETURN 

;clos=  the  Channel 

i E RRCR 

{NORMAL  RETURN 

{SET  Flag  +i 
{ :et  '^lag  c 
{NAME  POINTER 

{EHft 

{STCRE  RETUkN 

{SKIP  IP  REGULAR  OPEN 


{CPEN  THE  CHANNEL 
{ E R R UR 

{Nurnal  return 

{DEFAULT  CHARACTERISTICS 

{OPEN  THE  CHANNEL 
{ERRUR 

{NCRMAL  RETURN 


{RETURN  ADDRS 
{NAME  POINTER 

{STORE  RETURN 
{STORE  RETURN 

{CREATE  RPNOLM  FILE 

{NORMAL  RETURN 

{SKIP  IF  FILE  EXISTS 

{DELETE  THE  FILE 
{TRY  AGAIN 
{RETURN 
{NAME  POINTER 

{STORE  RETURN 

{DELETE  THE  FILE 

{NORMAL  RETURN 

{SKIP  IF  NO  file  exists 
{ERROR 

{NORMAL  RETURN 
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TYPM&: 


mtasr: 

MTAEU: 

MTAOT: 


T'IPOT: 


LDA 

0,0,3 

SUBIL 

2,2 

ST  A 

3,USP 

.SYSTM 

.WRL 

77 

JMP  9 

SYSEl 

JMP 

1,3 

LDA 

1,MTASC 

JMP 

.+  5 

LDA 

1,MTAEC 

JMP 

.■►3 

LDA 

0,MTAB1 

LDA 

1 ,MTACM 

ST  A 

3,USP 

.SYSTM 

•MTOIO 

03 

JMP 

.*2 

JMP 

0,3 

LDA 

l.MTEOF 

AND  0 

1 ,2 ,SNR 

JSR  9 

SYSEl 

JMP 

0,3 

LDA 

0,MTAB1 

LDA 

1 ,TMPBK 

5TA 

3,USP 

MOV 

1,3 

LDA 

Z.TMPCT 

ADD 

2,3 

ST  A 

3,TMPBK 

MOVS 

2,2 

•SYSTM 

.WRB 

03 

JSR  9 

SYSEl 

JMP 

0,3 

MTA3F 

OLOOOl 

060000 

COOAOO 

050000 

♦BDAC9 

BDACL 

0 

.~Z 

.TXT 

/MT0:6/ 

.TXT 

/TEMPC. 

.TXT 

/BDACS. 

;byte  pointer 

JFORCE  CH  #1 
;STORE  RETURN 

;WRITE  A LINE 
lERROR 

{NORMAL  RETURN 


{REDUCED  DATA  OUTPUT  BUFFER 
{WRITE  FF  COMMAND 
{STORE  RETURN 

{OUTPUT  BUFFER  TO  MAG  TAPE 

{NORMAL  RETURN 
{EOF  ERROR  MASK 
{SKIP  IF  EOF 
{ERROR 

{NORMAL  RETURN 

{REDUCED  DATA  OUTPUT  BUFFER 
{CURRENT  BLOCK  A 
{STORE  RETURN 
{HOLD  THE  BLOCK  0 
{0  WORDS  IN  buffer  ENTRY 
{UPDATE  BLOCK  0 

{SWAP  BLOCK  COUNT 

{OUTPUT  THE  BUFFER 
{SYSTEM  ERROR 
{NORMAL  RETURN 

{REDUCED  DATA  OUTPUT  BUFFER 

{SPACE  REVERSE  COMMAND 
{EOF  WRITE  COMMAND 
{ECf^  ERROR  MASK 
{FF  WRITE  COMMAND 

{SIZE  OF  REDUCED  DATA  BUFFER  ENTRY 
{CURRENT  TEMP.TM  BLOCK  0 


{ZO  BYTES 
{<CR> 
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UNCLASSIFILO 


harry  diamond  labs  ADELPHI  MD 

BDAC5  SOFTMARE.(U) 

NOV  77  J C INGRAM 
HDL-TR-1831 


F/G  9/2 


MIPR-76628 


2^2 

AO0O48  3O3 

a 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

■ 

■ 

■ 

1 

1 

1 

1 

1 

END 

OA1E 

FUMED 

3 -78 

ODC 
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A-6.  Overlay  Module  No.  5 — PHAS5.SR 

NAME  BLOCK  NAME=  PHAS5. 

■|1ME  BLOCK 


.TITL 

PHAS5 

;JC1  19  MAR  76 

.TXTM 

1 

• ENT 

OVST5 

.EXTD 

OVRTN  ERRTN  ERCDD  MAOFC  PRINT 

.EXTD 

HSMON  LSMON  HLDCT  SMPRT 

• EXTN 

MSKTb  LSBTB  MEBPT 

.NREL 

DVSTS: 

JSR  1 

OPFLl 

;OPEN 

NAMEG 

; ' ATT  I ' 

02 

;0N  CH  X2 

joo: 

JSR  a 

CREAl 

ICREATE  A FILE 

NAMEO 

; 'TEMPO. TM* 

JSR  a 

OPFLl 

;OPEN 

NAMED 

; 'TEMPO. TM' 

03 

;0N  CH  #3 

JSR  a 

OPFLl 

;OPEN 

NAME  J 

; ' POSTSCRIPT .DA ' 

OA 

;0N  CH  #A 

L=  1 : 

JSR  a 

RDHJ2 

;reao  a Query  line 

JPl 

;E(jf 

STA 

2, TEMPI 

;hc,ld  the  byte  pointer 

osz 

TEMPI 

;DEC  THE  POINTER 

LOA 

2,UTBP1 

lUTILITY  BYTE  POINTER 

JSR  a 

GTBYl 

;get  a byte 

LDA 

1 >ASCAK 

;<<■> 

S'JB 

0,1 

;flag  0 IF  <»> 

STA 

1 ,TEMP2 

;hdld  the  flag 

LDA 

2, TEMPI 

IRETRIEVE  THE  POINTER 

MOV  # 

1,1 ,5NR 

;SKIP  IF  NOT  <«> 

JMP 

JP2 

SJB 

0,0 

{CLEAR  ACO 

JSR  a 

STBYl 

{REPLACE  <CR>  WITH  <NUL> 

J5R  a 

TYLUl 

{ECHO  THE  LINE 

LDA 

1,TEMP2 

{RETRIEVE  FLAG 

MOV  « 

1 , 1 , SNR 

{SKIP  IF  RESPONSE  REQUIRED 

JM  p 

J03 

LDA 

2, TEMPI 

{RETRIEVE  POINTER 

L^2: 

jSR  a 

RDLU3 

{READ  INTO  UTILITY 

02 

{FROM  CH  «2 

ADCZL 

0,0 

{FORCE  -2 

ADO 

0,2 

{BACK  UP  2 BYTES 

STA 

0, TEMP2 

{HOLD  FLAG 
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JSR  a 

GTBYl 

lDA 

1 , ASCCN 

SUB  H 

0,1  .S2R 

JMP 

JP3 

LO  A 

O.ASCCR 

JSR  a 

STBYI 

ISZ 

TBMP2 

JP3S 

JSR  a 

WTLUl 

LDA 

2, UTBPI 

ISZ 

TEMP2 

JMP 

LPl 

JMP 

LP2 

UTBPi: 

UTBPT 

CREAl: 

CREAT 

OPMTl : 

OPMTA 

0=FL1 : 

UPFLE 

CLFLl: 

CLFLE 

XFERi; 

XFERF 

PRLNl : 

PRLNE 

R3LU1  : 

RDLUT 

RDLUi: 

RDLJR 

R0LU3: 

RDL  JA 

WTLUl  : 

WTLUT 

TVLUl : 

TYLUT 

TYPMl: 

TYPMG 

GTSPi; 

GT  SPN 

GTBY  l: 

GTBYT 

STBYi: 

STBYT 

ERRD3: 

ERROR 

PRFLI : 

PRFLE 

tempi: 

C 

TcMPi: 

0 

A5CCR: 

Cl  5 

ASCBK: 

OAO 

ASCAK: 

052 

ASCOO: 

06  0 

ASCIN: 

116 

ASCI y: 

131 

AjCCN: 

136 

DEVI  : 

NAMEH 

Dt\i2 : 

NAME  1 

USETB: 

BDACF 

OSETC: 

BDACQ 

JPl : 

JSR  1 

CLFLl 

UA 

JSR  a 

CLFLl 

03 

J37: 

JSR  a 

TYPMl 

M5G01 

LDA 

2, UTBPI 

JSR  a 

R0LU3 

02 

lOA 

2, UTBPI 

GET  A BYTE 
<'> 

iKIP  IF  <-> 

<CR> 

REPLACE  <->  WITH  <CR> 

INC  FLAG 
WRITE  THE  LINE 
;UTILITY  BYTE  POINTER 
lINC  FLAG,  SKIP  IF  <-> 

;REA0  next  QUERY 
CONTINUE  QUERY  RESPONSE 

POINTER  TO  UTILITY  BUFFER 

CREATE  A SEQ.  FILE 

OPEN  MAG  TAPE  FOR  FF 

OPEN  A CHANNEL 

CLOSE  A CHANNEL 

TRANSFER  ASCII  FILES 

PRINT  A LINE 

READ  A LINE  TO  UTILITY 

READ  A LINE.  RETURN  ON  EOF 

READ  A LINE,  POINTER  IN  AC2 

WRITE  A LINE  FROM  UTILITY 

TYPE  A LINE  FROM  UTILITY 

TYPE  A MESSAGE 

GET  A SP  N 

GET  A BYTE 

STORE  A BYTE 

ERROR  ROUTINE 

PRINT  THE  FILE 

[TEMPORARY 

;<CR> 

;<  > 

;<*> 

;<0> 

;<N> 

;<Y> 

;<^> 

; 'STTO' 

1 'JLPT  ' 

IMUX  INPUT  MIN  POINT  H 

;lsb  min  point  n 

ICLOSE 
!CH  nt* 
fCLOSE 
:CH  #3 

;TYPE  A MESSAGE 
iMESSAGE  HI 
[UTILITY 

[READ  INTO  UTILITY 
[FROM  CH  Hi 
[UTILITY 
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JSR 

i 

GTBYl 

;GtT  A BYTE 

LOA 

1 , ASCIN 

;<N> 

SJB 

0. 1 .SNR 

;SKIP  IF  NOT  <N> 

JMP 

JPO 

LDA 

1 .ASCIY 

;<Y> 

SJB 

H 

0.1 .SZR 

;SKIP  IF  <Y> 

JMP 

JP7 

JSR 

CLFLl 

;CLOSE 

02 

;CH  M2 

LDA 

O.MAGFG 

;mag  tape  flag 

MCV 

n 

0.0. SNR 

{SKIP  IF  MAG  tape 

JIP 

JPA 

JSR 

XFERl 

TRANSFER 

NAMED 

J'TEMPD.TH* 

NAMEF 

.•'Ml  0:7' 

LDA 

0. PRINT 

;PRINT  FLAG 

MOV 

H 

0.0. SNR 

ISKIP  IF  PRINT  REQUIRED 

JMP 

i 

OVRTN 

IRETURN  TO  ROOT  BINARY 

LDA 

l.DEVl 

;$TTO  NAME  POINTER 

MDVR  n 

0.0, SZC 

{'SKIP  IF  TTY 

uCA 

l.DEVZ 

;»LPT  NAME  POINTER 

ST  A 

1 . . + 2 

JSR 

a 

DPFLl 

lOPEN 

0 

lOEVICE  NAME 

02 

;0N  CH  H2 

JSR 

a 

PRLNI 

fPRINT  A LINE 

HEADl 

IHEADER  #1 

-2 

;<FF>  AND  2 LINES 

JSR 

a 

PRLNI 

;PR1NT  A LINE 

HEA02 

{HEADER  M2 

02 

>2  LINES 

JSR 

a 

PRFLl 

{PRINT  FILE 

NAMEA 

{PREAMBLE  FILE 

JSR 

a 

PRLNI 

{PRINT  A LINE 

BKLN2 

{2  BLANK  LINES 

02 

{2  LINES 

JSR 

a 

PRFLl 

{PRINT  FILE 

NAMED 

{POSTSCRIPT  FILE 

JSR 

a 

PRLNI 

{PRINT  A LINE 

HEADS 

{HEADER  A3 

-2 

{<FF>  AND  2 LINES 

JSR 

a 

PRFLl 

{PRINT  THE  FILE 

MEBPT 

{METHOD  FILE 

lDA 

O.HSMDN 

{hsb  monitor  flag 

MDVL 

0.0. SNC 

{SMP  IF  HSB  PRINTOUT 

JM  P 

. ♦ A 

M' VZR 

0.0 

{RESET  PRINT  BIT 

jTA 

O.HSMON 

{HOLD  SAMPLE  RATE 

jSR 

•) 

PRHSl 

{PRINT  THE  HSB 

SJB 

0.0 

{CLEAR  ACO 

JSR 

«) 

CHKPl 

{CHECK  MUX  BUFFER 

TB  1 : 

MSK’B 

{PCX  table 

Bi ACA/20 

{A  MUX  WORDS 

JSR 

fli 

CJKP  1 

{CHECK  LSB 

p<TBi: 

LSBTE 

{LSE  TABLE 

B''ACP/2C 

{A  LSB  WORDS 

M.  V 

9 

L f 0 f b 

{Skip  1 PR  I M CUT  RFiU  IRE  C 
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JMP 

JP5 

JSR 

DPFLl 

{OPEN 

NAMEL 

; • ASSIGNB.DA’ 

ON 

;CN  CH 

JSR 

i 

OPFLl 

;OPEN 

NAMEM 

I'ASSIGNC.DA* 

05 

;qn  ch  «5 

LOA 

OtMAGFG 

;mag  tape  flag 

MOV 

n 

0.0. SZR 

;SKIP  IF  NO  MAG  TAPE 

JHP 

.♦5 

J'iR 

d 

OPFLl 

;OPEN 

NAMEC 

I'TEMPC.TM' 

03 

;qn  ch  43 

J^P 

LPO 

oSR 

d 

OPMTl 

;UPEN  M7A  FOR  FF 

NAMEE 

; 'MT0:6 ' 

03 

;dn  ch  #3 

L^c: 

JSR 

•1 

PRLN2 

'.PRINT  A LINE 

HEAD3 

IHEADER  43 

-2 

;<FF>  2 LINES 

JSR 

3 

PRLN2 

;PRINT  A LINE 

HEAD4 

IHEADER  4*, 

02 

;0N  CH  42 

L?3: 

JSR 

3 

GTOAl 

.'GET  DATA  POINTER 

ST  A 

2. TEMP3 

JHOLD  POINTER 

LOA 

3 

0,TEMP3 

SSTATE  L SIGNAL  WORD 

MOV 

H 

0.0. SNR 

{SKIP  IF  NOT  END 

JMP 

JP6 

LDA 

1 .LSBMK 

;lsb  mask 

LOA 

2.PRTB1 

,'MUX  PRINTOUT  TABLE 

LDA 

3,QSETB 

;mux  input  min  point  <i 

AND 

D 

C,1 .SNR 

;SKIP  IF  lsb  data  word 

jMP 

.♦3 

LDA 

2,PRTB2 

;LSB  PRINTOUT  TABLE 

lOA 

3.aSETC 

;L56  min  point  4 

LDA 

1 .SIGMK 

ISIGNAL  4 MASK 

AND 

1.0 

;get  signal  4 

SJBZ 

3.0,SNt 

;SKIP  IF  AC3*<AC0 

JSR 

3 

ERRQ3 

SERROR  ROUTINE 

JSR 

3 

FMMSl 

;form  mask  and  displacement 

ADD 

0.2 

;aco  displacement  to  pointer 

LCA 

0.0.2 

;get  table  word 

AND 

« 

1.0. SNR 

;skip  if  printout  required 

JMP 

LP3 

ILOOP  BACK 

lO  A 

2.TEMP3 

;oata  pointer 

LDA 

0.1,2 

IMS  TIME 

LDA 

1,2,2 

;LS  TIME 

LDA 

2, LINE 

:LINE  POINTER 

JSR 

3 

FMOPl 

IFORM  THE  DP  4 

LLA 

O.ASCBK 

J<  > 

LOA 

m 

3, TEMPS 

(STATE  C SIGNAL  WORD 

LOA 

I.SEQMk 

(SEQUENCE  ERROR  MASK 

AND 

4 

3,1, SZR 

(SKIP  IF  NO  ERROR 

LDA 

0 , A SC  IK 

(<•> 

JSR 

3 

ST6V2 

(STORE  THE  ERROR  FLAG  BYTE 

l:  a 

O.ASCCO 

;<C> 

LDA 

2,STPNT 

(STATE  BYTE  POINTER 
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LOA  9 

1,TEMP3 

;STATE  1 SIGNAL  U 

HOVL  n 

lil.SZC 

;SKIP  IF  STATE  0 

INC 

0,0 

;FORCE  <1> 

JSR  9 

STBY2 

;STDRE  THE  STATE 

LOA  9 

0,TEMP3 

;STATE  L SIGNAL  WORD 

LDA 

1,SIGHK 

;S1GNAL  MASK 

LOA 

2,SICPT 

ISIGNAL  BYTE  POINTER 

AND 

1,0 

;MASK  the  SIGNAL 

STA 

0,ST1 

IHOLD  THE  SIGNAL 

JSR  9 

FMSPl 

;FQRM  THE  SP  A 

lDA  9 

0,TEMP3 

ISTATE  L signal  WORD 

LOA 

1 ,LS6HK 

JASSIGN  MASK 

ANO  # 

0,1 , SIR 

ISKIP  IF  ASSIGNS. DA 

JMP 

.♦A 

LDA 

0,ASC1M 

;<M> 

LDA 

1 ,BPNTR 

;b  buffer  pointer 

JMP 

. + 3 

LDA 

0, ASCII 

;<;l> 

LOA 

1 ,CPNTR 

;C  BUFFER  POINTER 

STA 

1,ST1+1 

ISTORE  BUFFER  POINTER 

JSR  9 

STBY2 

ISTORE  ASSIGNMENT  BYTE 

JSR  9 

QPENl 

;get  assign  file  assignment  pointer 

ST  1 : 

0 

;POINT  A 

0 

IBUFFER  POINTER 

lDA 

O.HNMPT 

{MNEMONIC  POINTER 

JSR  9 

MVBYl 

{MOVE  THE  BYTES 

20 

;20  BYTES  MAX 

LOA 

0,ASCIR 

;<CR> 

JSR  9 

STBY2 

{STORE  the  CR 

JSR  9 

PRLN2 

{PRINT  THE  LINE 

line; 

LNEBF 

{LINE  BUFFER 

01 

{1  LINE 

JMP 

LP3 

{LOOP  BACK 

J06 : 

JSR  9 

CLFL2 

{CLOSE 

05 

{CH  A5 

JSR  9 

CLFL2 

{CLOSE 

OA 

{CH  AA 

JSR  9 

CLFL2 

{CLOSE 

03 

{CH  33 

JP5: 

JSR  9 

CLFL2 

{CLOSE 

02 

{CH  A2 

JSR  9 

CLFL2 

{CLOSE 

01 

{CH  A1 

JMP  9 

OVRTN 

{RETURN  TO  ROOT  BINARY 

TEMP3: 

0 

{TEMPORARY 

P^^LN^; 

PRLNE 

{PRINT  A line 

GTOAl: 

GTOAT 

{GET  DATA  WORD  POINTER 

E'iSPl  ; 

FM5PN 

{FORM  SP  A 

FMOPi: 

FMOPN 

{FORM  OP  A 

FMMSl  : 

FMMSK 

{FORM  MASK  ANO  DISPLACEMENT 

MVBYl  : 

MVBYT 

{MOVE  A BYTE  STRING 

CHKF  i : 

CHUPM 

{CHECK  PRINT  MASKS 

U‘'EN1 : 

OPEN 

{READ  ASSIGNMENT  FILE 

P!<hsi  ; 

PRHSB 

{PRINT  HSB 
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STBY2S 

STBYT 

;STORE  A BYTE 

MVBV2: 

MVBYT 

{MOVE  BYTE  STRING 

O^Fia: 

OPFLE 

{OPEN  A CHANNEL 

CLFL2: 

CLFLE 

{CLOSE  A CHANNEL 

bpntr: 

BUFRB 

;b  buffer  pointer 

CpnTR: 

BUFRC 

{C  BUFFER  POINTER 

ascir: 

015 

{<CR> 

ASCIK: 

05  2 

{<<■> 

ASCCO: 

060 

{<0> 

ASCII: 

n A 

{<L> 

ASCIM: 

115 

{<M> 

SI GMK: 

000377 

{SIGNAL  MASK 

LSBMk: 

OAOOOO 

{LSB  MASK 

SEQMK: 

000^00 

{SEQUENCE  ERROR  MASK 

C20: 

20 

STPNT: 

LNE3F+17 

{STATE  POINTER 

SI &pt; 

LNEBF+2^ 

{SIGNAL  POINTER 

MNMPT : 

LNEBF+35 

{MNMEMONIC  POINTER 

PRhSB: 

ST  A 

3,HSRTN 

{RETURN  ADDRS 

JSR  •) 

DPFL2 

{OPEN 

NAMEB 

{'TEMPB.TM' 

04 

{ON  CH  04 

JSR  i 

QPFL2 

{OPEN 

NAMEK 

; ' ASSIGNA.DA' 

05 

SON  CH  «5 

JSR  a 

PRLN2 

{PRINT 

HEADS 

{HEADER  A5 

-2 

{<FF>  AND  2 LINES 

JSR  a 

PRLN2 

{PRINT 

HEA06 

{HEADER  #6 

02 

{2  LINES 

LDA 

0,C20 

{HSB  aORD  SUE 

ST  A 

O.HSCNT 

{SET  COUNT 

hsbaa: 

LOA 

0,  ASCM 

{CURRENT  BIT  ft 

LOA 

2, ASNPT 

{ASSIGNMENT  LINE  POINTER 

JSR  a 

FMSPl 

{FORM  SP  n 

JSR  a 

DPENl 

{GET  ASSIGN  FILE  ASSIGNMENT  POINTER 

ASCM: 

60ACS 

{BIT  n 

BUFRA 

{BUFFER  POINTER 

LDA 

U.ASMNP 

{MNEMONIC  POINTER 

JSR  a 

MVBY2 

{MOV  BYTE  STRING 

20 

{20  BYTES  MAX 

LOA 

0. ASCIR 

{<CR> 

JSR  a 

STBY2 

{STORE  <CR> 

JSR  a 

PRLN2 

{PRINT  A line 

ASNPT; 

ASGBF 

{ASSIGNMENT  LINE  POINTER 

01 

{1  LINE 

1S2 

ASCNT 

{INC  BIT  n 

DSZ 

riSCNT 

{SKIP  WHEN  DONE 

J*1  p 

HSBAA 

jSR  a 

p«LN2 

{PRINT  A LINE 

MEAD7 

{HEADER  #7 

-2 

{<FF>  AND  2 LINES 

hSBJO: 

LJA 

2,HS6PT 

{HSB  POINTER 

lo-^ 
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DSZ 

HSBCT 

;hsb  count 

J**.  p 

HSB  J1 

JSR  3 

RDBLl 

;read  a block 

bjfft: 

BUFRB 

fBUFFER  POINTER 

0 

;CURRENT  BLOCK  « 

404 

;SIZE  t CH  « 

HSBJ3 

;eof  addrs 

LDA 

2 , HSBSZ 

;hsb  buffer  size 

ST  A 

2, HSBCT 

;reset  count 

L:  A 

2,BUFPT 

;buffer  pointer 

STA 

2,HSBPT 

;hsb  pointer 

h>BJl : 

ISZ 

HSBPT 

;iNC  The  pointer 

..DA 

0,0,2 

lOET  BUFFER  WORD 

STA 

0,TEMP3 

;hlld  the  word 

l:  a 

0,HSTIM 

;hs  time 

LDA 

1 ,HSTIM+1 

M?  V 

0,2 

;mcv  ms  time 

LDA 

3,HSMtiN 

;hSB  sample  RATE 

ADOZ 

1 ,3,SZC 

;acd  in  sample  rate 

INC 

2,2 

STA 

2,HSTIK 

IRESTORE  UPDATED  TIME 

STA 

3,HST IK+ 

1 

lDA 

2,  HSB 

aiNE  POINTER 

JSR  3 

FMDPl 

;form  op  # 

loa 

0,C20 

;hsb  word  size 

STA 

0,  HSCNT 

;STDRE  COUNT 

hi  B j i' ; 

lda 

0,  ASCCC 

;<o> 

LDA 

1 ,TEMP3 

;hsb  word 

MOVZR 

1 ,1 ,szc 

JSKIP  IF  0 BIT 

INC 

0,0 

;fcrce  <i> 

STA 

1 , TEMP3 

;hold  shifted  word 

INC 

2,2 

;INC  POINTER 

INC 

? . ? 

JSR  3 

STBY2 

ISTCRE  THE  BYTE 

DSZ 

HSCNT 

ISKIP  WHEN  DONE 

JMP 

HSBJ2 

JSR  3 

PRLN2 

IPRINT  A LINE 

hSe : 

HSBBF 

;hsb  line 

01 

;l  LINE 

JN  P 

HSBJO 

ILOCP  BACK 

HiB J3; 

JSR  3 

CLFL2 

f CLOSE 

04 

ICh  #4 

JSR  J 

CLFL2 

;CLCSE 

OS 

;CH  *5 

JMP  3 

HSRTN 

IRETURN 

MS  T I m: 

C 

r. 

ICURRENT  TIME 

hscnt: 

c 

fCCUNTER 

mSbct: 

01 

ibuffer  count 

hSBSZ: 

400 

fBUFFER  SIZE 

h;;  BPT : 

BJFRB+4 

00 

fBUFFER  POINTER 

ASMNP! 

AS&3F»7 

JASSIONMENT  MNEMONIC  POINTER 

HjRTn: 

0 

fFETURN  ADDRS 

r'lp  ! 1 : 

TMPI  N 

fREDUCED  DATA  FROM  DISK 

MTAIl  : 

MTAIN 

fREDUCED  DATA  FROM  MAO  TAPE 
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R3BL1  : 

RDBLK 

TREAD  A BLOCK 

OTORT: 

0 

.‘RETURN  AOORS 

G'DAT: 

STA 

3,&TDRT 

TSTDRE  RETURN 

05Z 

JMP 

MTACT 

GTDJl 

;SK1P  IF  BUFFER  COUNT  0 

LOA 

l.MACFG 

tMAC  TAPE  FLAG 

MDV  J/ 
JMP 

1 f 1 r SZR 
.+<* 

fSKlP  IF  NO  MAG  TAPE 

JSR  a 

JMP 

TMPl  1 

JP6 

.*3 

5DISK  INPUT 
{EOF  CONDITION 

JSR  a 

MTAll 

JP6 

;MAG  TAPE  INPUT 

;eqf  condition 

LCl  A 

1 .HTAST 

tstart  of  input  buffer 

STA 

1 tMTAPT 

{RESET  POINTER 

LLA 

1 ,MTAS2 

{BUFFER  COUNT 

STA 

1 , MTACT 

{RESET  COUNT 

&TD  Jl : 

LDA 

Z.MTAPT 

{GET  CURRENT  POINTER 

LJA 

0, MTAOF 

{OFFSET 

A30 

2fO 

{ADD  OFFSET 

STA 

OtMTAPT 

{UPDATE  POINTER 

JMP  a 

GTDRT 

{RETURN 

M’-ast: 

3JFFR 

{INPUT  BUFFER  POINTER 

htapt: 

eUFFR*8DAC9 

{CURRENT  POINTER 

ASZ: 

AOO 

{BUFFER  SIZE 

MTAtT; 

01 

{CURRENT  COUNT 

mtaof; 

BDACL 

{DATA  ENTRY  SIZE 

PH5CD: 

2^00 

{PHASE  5 ERROR  CODE 

ERTBL: 

.♦1 

{ERROR  TABLE  POINTER 

ERRl 

{ASSIGN  FILE  READ  ERROR 

ERR2 

{ASSIGN  FILE  SEQUENCE  ERROR 

ERR3 

{LINE  CLUNT  ERROR 

ERRA 

{MUX  OR  LSB  POINT  % OFB 

-1 

{END  OF  TABLE 

error: 

LOA 

C, PH5C0 

{PHASE  5 ERROR  CODE 

LOA  H 

2, ERTBL 

{TABLE  ENTRY 

INC 

0,0 

{INC  ERROR  COUNT 

ISZ 

ERTBL 

{INC  POINTER 

COM  K 

2, 2, SNR 

{SKIP  IF  NOT  EOT 

JMP 

.*3 

SJB  » 

2,3,SZR 

{SKIP  IF  ERROR  FOUND 

jMP 

.-6 

{LOOP  BACK 

JMP 

. + 2 

SYSER: 

AOC 

0.0 

{FORCE  -1 

STA 

O.ERCCD 

{STORE  IN  ROOT  BINARY 

JMP  .) 

ERRTN 

{ERROR  RETURN  TO  ROOT  BINARY 

E R R 0 1 : 

ERROR 

{ERROR  ROUTINE 

ORSI Z: 

AO 

iU  MNEMONICS  PER  BLOCK 

O^OFF  ! 

0 

{POINTER  OFFSET 

QRRTN: 

0 

{RETURN  AODRS 

QREN  : 

STA 

3,0PRTN 

{RETURN  AOORS 

LOA 

1,0,3 

{POINT  n 

J 


/ 
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1 

LOA 

3,1,3 

IBUFFER  POINTER 

CD  A 

0,-3, 3 

IlNlTlAL  POINT  « 

5U6Z 

0,1, SNC 

ISKIP  IF  AC0«<AC1 

JSR  9 

ERROl 

{ERROR 

enf(2 : 

SUB 

0,0 

{CLEAR  ACO 

LDA 

2,0PS1Z 

{N  OF  MNEMONICS  PER  BLOCK 

DI  V 

ADDZL 

0,0 

|*A 

MOVZL 

0,0 

{•2 

STA 

0,OPOFF 

{STORE  POINTER  OFFSET 

LDA 

2, -1,3 

{CURRENT  BLOCK  M 

STA 

1,-1, 3 

{STORE  NEW  BLOCK  U 

HDV 

3,0 

{MOV  BUFFER  POINTER 

SUB  H 

2.1, SNR 

{SKIP  IF  NOT  SAME 

JMP 

.+5 

LDA 

2, -2, 3 

{GET  CM  » AND  COUNT 

1 

i 

.5 YSTM 

• RDB 

77 

{READ  A BLOCK 

JSR  9 

ERRQl 

{ERROR 

EiRl: 

LDA 

2,DPDFF 

{GET  OFFSET 

ADOZL 

0,2 

{ADD  IN  BASE,  FORM  BYTE  POINTER 

LDA 

3,0PRTN 

{RETURN  ADDRS 

J'lP 

2,3 

{RETURN 

, 

r 

Cl  1 : 

11 

Cl  2; 

12 

C'IRTN: 

0 

{RETURN  ADDRESS 

C<EAT: 

lD  A 

0,0,3 

{NAME  POINTER 

INC 

3,3 

STA 

3,CRRTN 

{STORE  RETURN 

CREAA: 

•SYSTM 

.CREA 

{CREATE  SEQ.  FILE 

JMP 

.+2 

{ERROR 

JMP  a 

CRRTN 

{RETURN 

LOA 

l.Cll 

SUB  « 

1,2,SZR 

{SKIP  IF  FILE  EXISTS 

JMP  a 

SYSEl 

{ERROR 

JSR 

OELEA 

{DELETE  THE  FILE 

JMP 

CREAA 

{TRY  AGAIN 

DcLcT: 

LDA 

0,0,3 

{NAME  POINTER 

INC 

3,3 

UJ 

III 

O 

STA 

3,USP 

{STORE  RETURN 

.S YSIM 

.DELET 

{DELETE  THE  FILE 

JMP 

.♦2 

JMP 

0,3 

{NORMAL  RETURN 

LDA 

1 ,C12 

SJ6  A 

1,2,SZR 

{SKIP  IF  NO  file 

JMP  a 

SYSEl 

{ERROR 

JM  P 

0,3 

{NORMAL  RETURN 

x^rtn: 

0 

{RETURN  ADDRESS 

X=ERF: 

LDA 

0,0,3 

{SOURCE  FILE 

LDA 

1,1,3 

{DESTINATION  FILE 

STA 

o,xfsfl 

STA 

1 ,XFDFL 
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STA 

3,XFRTN 

;STDRE  RETURN 

JSR 

OPFLE 

;OPEN  SOURCE  FILE 

xfsfl: 

0 

IPDINTER 

0«. 

:0N  CH«A 

JSR 

OPFLE 

lOPEN  DESTINATION  FILE 

XF  OFL : 

0 

fPClNTER 

03 

iON  CH«I3 

jSR 

ROLUR 

(READ  A LINE 

. + 3 

fRETURN  ON  EOF 

JSR 

WTLUT 

;WRITE  A LINE 

JMP 

.-3 

;loop  back 

JSR 

CLFLE 

{CLOSE 

OC 

JCHKA 

JSR 

CLFLE 

{CLOSE 

03 

{CHAS 

LOA 

3,XFRTN 

{RETURN  ADDRESS 

JMP 

2,3 

{RETURN 

0=FL£: 

L J A 

0,0,3 

{NAME  POINTER 

LDA 

2,1,3 

{CH  « 

SJB 

1,1 

{USE  DEFAULT  CHARACTERISTICS 

STA 

3,USP 

{STORE  RETURN 

.SYSTM 

.JPEN 

77 

{OPEN  THE  CHANNEL 

JMP  •) 

SYSEl 

{ERROR 

JMP 

2,3 

{NORMAL  RETURN 

CiFie: 

LOA 

2,0,3 

;CH  H 

STA 

3,USP 

{STORE  RETURN 

.SYSTM 
• CLOS 

77 

{CLOSE  THE  CHANNEL 

JMP  a 

SYSEl 

{ERROR 

JM  P 

1,3 

{NORMAL  RETURN 

TYPM&: 

LOA 

0,0,3 

{MSG  POINTER 

INC 

3,3 

SUBZL 

2,2 

{FORCE  A +1  FOR  CHK 

JMP 

.♦5 

tylut: 

SUBZL 

2,2 

{FORCE  A ♦!  FOR  CH# 

JMP 

. + 2 

wtlut: 

LDA 

2,C03 

{CH  #3,  BY  default 

LDA 

0,UTBP0 

{UTILITY  BYTE  POINTER 

STA 

3,USP 

{STORE  RETURN 

•SYSTM 

.WRL 

77 

{WRITE  A LINE 

JMP  a 

SYSEl 

{ERROR 

JMP 

0.3 

{NORMAL  RETURN 

RDSUT  ; 

LDA 

1,0,3 

{BYTE  COUNT 

LOA 

0,UTBP0 

{UTILITY  BYTE  POINTER 

LOA 

2,C0A 

{CH  #4 

STA 

3,USP 

{STORE  RETURN 

•SYSTM 
• ROS 

77 

{READ  SEQUENTIAL  BYTES 

JSR  a 

SYSEl 

{ERROR 

JMP 

1,3 

{NORMAL  RETURN 
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SYSE  1 : 

SYSER 

fsystem  error 

C33: 

03 

C0<.: 

0^ 

C36: 

06 

RDRTN: 

C 

ROLUA: 

ADC 

Itl 

;return  flag  -i 

MOV 

2.0 

;BYTE  POINTER 

LDA 

2.0,3 

;CH  tt 

INC 

3.3 

JMP 

.♦7 

rdlur; 

LDA 

1,0,3 

IRETURN  ADDRESS 

INC 

3,3 

JMP 

.♦2 

ROLUT: 

ADC 

1.1 

IRETURN  FLAG  -1 

LDA 

O.UTBPO 

lUTlLITY  BYTE  POINTER 

LDA 

2,C0A 

;CH 

STA 

1 , RORTN 

ISTORE  RETURN 

ST  A 

3,USP 

iSTOkE  RETURN 

.SYSTM 

.RDL 

77 

;reao  a line 

JMP 

.♦A 

;CHECK  FDR  EOF 

MOV 

0,2 

IMOVE  THE  BYTE  POINTER 

ADD 

1,2 

fOFFSET  THE  POINTER 

JMP 

0,3 

INDRMAL  RETURN 

LDA 

0,C06 

-.EOF  CODE 

SJ8  if 

0,2,S2R 

ISKIP  IF  EOF 

JMP  a 

SYSEl 

;E  RROR 

LDA 

0, RORTN 

IRETURN 

COM  # 

0.0, S2R 

;SKIP  IF  NO  EOF  RETURN 

JMP  a 

RDRTN 

lEOF  RETURN 

JMP  a 

SYSEl 

;ERR0R 

iPLOS: 

LDA 

0,0,3 

IDEVICE  BYTE  POINTER 

STA 

3,  JSP 

ISTORE  RETURN 

.SYSTM 

.SPDA 

IDISABLE  SPOOLING 

JSR  a 

SYSE  1 

TERROR 

JMP 

1,3 

{NORMAL  RETURN 

w r L N E : 

lDA 

0,0, 3 

{NAME  POINTER 

Ll  A 

2,1,3 

{Ch  H 

STA 

3,USP 

{STORE  RETURN 

•SYSTM 

./iRL 

77 

{WRITE  A LINE 

JSR  a 

SYSEl 

{SYSTEM  ERROR 

j''  p 

2,3 

{NORMAL  RETURN 

PRFRT  : 

0 

{RETURN  ADDRS 

PR  FLE  : 

LDA 

0,0,3 

{NAME  POINTER 

INC 

3,3 

S’A 

3 , P R F R T 

{STORE  RETURN 

STA 

0,  .♦a 

{STCRE  POINTER 

j5R 

dpfle 

{OPEN 

0 

{NAME  POINTER 

OP 

{ON  CH  Hi, 

i. 


108 


APPENDIX  A 


JSR 

ROLUR 

;read  a line 

. + 5 

;EUf  RETURN 

JSR 

PRLNE 

;PRINT  The  line 

UTBPT 

;UT1LI TY 

01 

;l  LINE 

J'lP 

.-5 

JSR 

CLFLE 

;CLQSE 

0^1 

;CH  ti^ 

JMP  a 

PRFRT 

{RETURN 

UT  BPO: 

UTBPT 

{UTILITY  BYTE  POINTER 

S<FL&: 

-1 

{LINE  SKIP  FLAG 

LNMAX: 

036 

{MAX  LINE  COUNT 

L'JCNT: 

20 

{CURRENT  LINE  COUNT 

pgcmt: 

0 

{CURRENT  PAGE  COUNT 

p^ STR: 

0 

{LINES  STORAGE 

PRRTN: 

0 

{RETURN  ADORS 

ERR02; 

ERROR 

{ERROR  ROUTINE 

F'1SP2: 

FMSPN 

{FORM  SP  « 

pgqff: 

PAGE1+ 

13 

prlne: 

LOA 

0,0,3 

{MESSAGE  POINTER 

LDA 

1,1,3 

{»  LINES 

ST  A 

3,PRRTN 

{RETURN  ADORS 

STA 

1 ,prstr 

{STORE  LINES 

ST  A 

0,PRMSG 

{STORE  MESSAGE  POINTER 

MOVL  H 

1,1, SNC 

{SKIP  IF  NEG 

J'lP 

. + 6 

ADC 

0,0 

{FORCE  -1 

STA 

0, SKFLG 

{RESET  SKIP  FLAG 

NEC 

1,1 

{FORM  POSITIVE 

STA 

l.PRSTR 

{STORE  POS  LINE  COUNT 

JMP 

PRLMC 

LDA 

0, SKFLG 

{SKIP  LINE  FLAF 

READS 

2 

{READ  SWITCHES 

COM  H 

0,0, SNR 

{SMP  IF  FLAG  SET 

J'^P 

. + 3 

COM  n 

2, 2, SNR 

{SKIP  IF  NOT  ALL  UP 

JMP 

2,3 

{RETURN 

COM  « 

2,2,SZR 

{SKIP  IF  ALL  UP 

STA 

2, SKFLG 

{SET  SKIP  FLAG 

LOA 

0,LNCNT 

{CURRENT  line  COUNT 

SUBZ  n 

1 ,0,SZC 

{SKIP  IF  ACISACO 

JMP 

PRLNA 

PRLNC : 

LOA 

0, PRINT 

{PRINT  flag 

M3VR  It 

0,0, SZC 

{SKIP  IF  $TTO 

JMP 

PRLNB 

ISZ 

LNCNT 

{INC  LINE  COUNT 

ISZ 

LNCNT 

{AGAIN 

JSR 

HTLNE 

{WRITE  A LINE 

BKLNl 

{1  BLANK  LINE 

02 

{ON  CH  «2 

OSZ 

LNCNT 

{SKIP  WHEN  DONE 

JMP 

.-4 

JMP 

. + ^ 

PRLNB: 

JSR 

WTLNE 

{WRITE  A LINE 

TOF 

{TOP  OF  FORM 
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02 

;qn  ch  «2 

IDA 

O.LNHAX 

fMAX  COUNT 

STA 

O.LNCNT 

{RESET  COUNT 

ISZ 

PGCNT 

;INC  PAGE  COUNT 

LDA 

O.PGCNT 

{GET  PAGE  P 

LUA 

Z.PGOFF 

{PAGE  n OFFSET 

JSR  a 

FMSP2 

{FORM  SP  n 

JSR 

htlne 

{WRITE  A LINE 

PAGE! 

{PAGE  U 

02 

{ON  CH  »2 

p^lna: 

JSR 

WTLNE 

{WRITE  A LINE 

prmsg: 

0 

{MESSAGE  POINTER 

02 

{ON  CH  m 

LDA 

l.PRSTR 

{LINE  COUNT  STORAGE 

LDA 

O.LNCNT 

{CURRENT  COUNT 

SJBZ 

1 .O.SNC 

{SKIP  IF  AC1=<AC0 

JSR  a 

ERRa2 

{ERROR  ROUTINE 

ERR3: 

STA 

O.LNCNT 

{UPDATE  COUNT 

LDA 

3,PRRTN 

{RETURN  ADDRS 

J!1P 

2.3 

{RETURN 

mvrtn: 

0 

MVWUT: 

LDA 

2.0.3 

{DESTINATION  POINTER 

LDA 

1.1.3 

{COUNT 

STA 

3.MVRTN 

{STORE  RETURN 

LOA 

3.UTBP0 

{UTILITY  BYTE  POINTER 

MCVZR 

3.3 

{FORM  ADDRESS 

NEG 

1.1 

{NEG  THE  COUNT 

LOA 

0.0.3 

{GET  WORD 

STA 

0.0.2 

{STORE  WORD 

INC 

3.3 

INC 

2.2 

INC 

1.1 .SZR 

{SKIP  WHEN  DONE 

JMP 

.-5 

LDA 

3.MVRTN 

{RETURN  ADDRESS 

JMP 

2.3 

{RETURN 

C^KCT; 

0 

{COUNTER 

C^KPM: 

LDA 

2.0.3 

{TABLE  POINTER 

LDA 

1.1.3 

{COUNT 

ADO 

1,2 

{OFFSET  THE  POINTER 

ADD 

1,2 

• 

STA 

2,0,3 

{UPDATE  THE  TABLE  POINTER 

STA 

1 .CHKCT 

{STORE  THE  COUNT 

LDA 

1.0.2 

{GET  A WORD 

INC 

2.2 

{INC  POINTER 

MOV  » 

1.1, SZR 

{SKIP  IF  0 

INC 

0,0 

{SET  FLAG 

DSZ 

CHKCT 

{SKIP  WHEN  DONE 

JMP 

.-5 

JMP 

2,3 

{RETURN 

fimsk  : 

5JBZL 

1.1 

{SET  BIT  TO 

MOVZR 

0.0. szc 

{SKIP  IF  NOT  2OO0 

Ml'VZL 

1.1 

{SHIFT  1 PLACE  LEFT 

MD  VZR 

0,0, szc 

{SKIP  IF  NOT  2**1 

ADDZL 

1.1 

{SHIFT  2 OLACE  LEFT 
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M3VZR 

0,0, SNC 

;SKIP  IF  2«*2 

J'lP 

. + 3 

AOOZL 

1,1 

;SHIFT  A PLACE  LEFT 

AOOZL 

1,1 

MUVZR 

0,0, SZC 

;SKIP  IF  NOT  2**3 

MDVS 

1,1 

;SHIFT  8 PLACE  LEFT 

J>1P 

0,3 

;return 

GTDPN: 

ADC 

0,0 

;0P  FLAG 

MOV 

0,1 

lERROR  ON  NO  tt  FLAG 

JMP 

.♦6 

GTSPR: 

LDA 

1,0,3 

;exit  pointer  if  no 

INC 

3,3 

JMP 

.*2 

GT  SPN: 

ADC 

1,1 

TERROR  ON  NO  « FLAG 

SJBZL 

0,0 

ISP  FLAG 

STA 

O.GTFGO 

ISP/OP  FLAG 

SUB 

0,0 

ICLEAR  ACO 

STA 

O.GTFGl 

;«  FOUND  FLAG 

STA 

o,gtdvf 

lOVERFLOW  FLAG 

STA 

0,GTSTR 

;«  storage 

STA 

0,GTSTR+1 

STA 

1,GTERT 

lERROR  EXIT  FLAG 

STA 

2,GTBPT 

IBYTE  POINTER 

STA 

3,GTRTN 

INORMAL  RETURN 

JMP 

.♦2 

GTLPi: 

ISZ 

GTBPT 

iINC  BYTE  POINTER 

LDA 

2,GTBPT 

IGET  THE  POINTER 

JSR 

GTBYT 

IGET  THE  BYTE 

LDA 

1,ASC1C 

;<CR> 

SUB 

0,1, SNR 

ISKIP  IF  NOT  <CR> 

JMP 

GTLP2 

IDONE 

LDA 

1 ,ASC  19 

f<9> 

ADCZ  # 

1 ,0,S2C 

ISKIP  IF  AC1>=AC0 

JMP 

GTLP2 

INOT  A DIGIT 

LDA 

1,ASCI0 

I<0> 

ADCZ  « 

0,1, SZC 

ISKIP  IF  AC0>=AC1 

JMP 

&TLP2 

INDT  A DIGIT 

ISZ 

GTFGl 

IINC  n FOUND  FLAG 

SUB 

1,0 

IFORM  BINARY 

STA 

0,GTUTL 

IHOLO  THE  « 

LDA 

0,GTSTR 

IGET  PREVIOUS  VALUE 

LDA 

1 ,GTSTR+ 

I 

MQVZL 

1,1 

IN*2 

M3VL 

0,0, SZC 

ISKIP  IF  NO  OVERFLOW 

ISZ 

G'^OVF 

IINC  FLAG 

MQVZL 

1,3 

IN*9 

MOVL 

0,2, SZC 

ISKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF 

IINC  flag 

MQVZL 

3,3 

IN*8 

MOVL 

2,2 , SZC 

ISKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF 

IINC  FLAG 

ADDZ 

1 ,3, SZC 

IN*10 

INC 

0,0 

ADDZ 

0,2, SZC 

ISKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF 

IINC  FLAG 

LDA 

1 ,GTUTL 

IRETRIEVE  the  BINARY 

ADDZ 

1,3, SNC 

lADD  TO  PREVIOUS  A 
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Ei^RS  : 
&rLP3i 


ERR9; 


1 


g:lp2; 


J'lp 

.♦3 

INC! 

2.2. SIC 

{SKIP  IF  NO  OVERFLOW 

ISZ 

GTOVF 

:1NC  FLAG 

STA 

2.&TSTR 

{HOLD  UPDATED  A 

STA 

3,GTSTR+ 

1 

JMP 

GTLPl 

;get  next  byte 

LOA 

3.GTF&1 

;A  FOUND  FLAG 

MOV 

« 

3.3. SNR 

{SKIP  IF  A FOUND 

J'lP 

GTLP3 

LDA 

O.GTSTR 

{RETRIEVE  THE  A 

LDA 

1 .GTSTR*1 

LDA 

2. GTBPT 

{RETRIEVE  THE  BYTE  POINTER 

LDA 

3. GTOVF 

{OVERFLOW  FLAG 

OS2 

GTFGO 

{SKIP  IF  SP  A 

J'^P 

.♦4 

MOV 

A 

0,0. SZR 

{SKIP  IF  NOT  SP  OVERFLOW 

INC 

3.3.SKP 

{INC  FLAG 

MOV 

1.0 

{MOVE  SP  A 

MOV 

H 

3.3, SZR 

{SKIP  IF  NO  OVERFLOW 

JSR 

d 

GTERk 

{ERROR  ROUTINE 

JMP 

i 

GTRTN 

{NORMAL  RETURN 

MOV 

n 

1 , 1 ,SZR 

{SKIP  IF  eOL 

oMP 

GTLPl 

{GET  NEXT  BYTE 

LDA 

l.GTERT 

{ERROR  RETURN  FLAG 

COM 

n 

1,1, SNR 

{SKIP  IF  ADDRESS  SPECIFIED 

JSR 

ti 

gterr 

{ERROR  ROUTINE 

JMP 

i 

GTERT 

{EOL  RETURN.  NjQ  A FOUND 

gterr: 

G’'RTN: 
GTERT: 
GTBPT : 
GTSTR: 


GTFGO: 
GT  FGl : 
Gtovf: 
GT  UTL : 


ERROR 

C 

U 

0 

0 

0 

c 

0 

0 

G 


;error  routine 

.'RETURN  ADDRESS 

;eol  return  flag 
;bype  pointer  storage 
;«  STORAGE 


;DP/SP  FLAG 
;«  FOUND  FLAG 

;overflon  flag 

.'UTILITY 


ASCIC: 

Cl  5 

{<CR> 

ASC ib: 

0'-.0 

{<  > 

A .C 19! 

071 

{<9> 

A jC 1 0! 

060 

o 

V 

GIBYT! 

LDA 

1, BTMSK 

{BYTE  MASK 

MQVZR 

2,2,SNC 

{FORM. WORD  ADDRESS.  S 

KQVS 

1,1 

{SWAP  THE  MASK 

LDA 

0,0,2 

{GET  WORD 

AND 

1 .O.SNC 

{MASK  THE  WORD,  SKIP 

M3VS 

0.0 

{SWAP  THE  WORD 

M3VL 

2,2 

{RESTORE  BYTE  POINTER 

JMP 

0,3 

{RETURN 

BTMSK: 

377 

{BYTE  MASK 

srRTN: 

0 

S[)YT: 

LDA 

1. BTMSK 

{BYTE  MASK 

AND 

1.0 

{MASK  THE  WORD 

RHS 
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MQVZR 

Z.Z.SNC 

;fcrm  word  address,  skip  if 

MOV  5 

0.0, szc 

ISHAP  UQRO,  SKIP  IF  LHS 

MOV  5 

1.1 

iShAP  MASK 

ST  A 

3,STRTN 

ISTDRE  RETURN 

lOA 

3.0.2 

;get  word 

AND 

1.3 

;MASK  THE  WORD 

ACD 

0,3 

;ADD  in  new  BYTE 

ST  A 

3,0,2 

{RESTORE  THE  WORD 

MQVL 

2.2 

{RESTORE  BYTE  POINTER 

INC 

2,2 

{INC  POINTER 

jMP  a 

STRTN 

{RETURN 

mvspt: 

0 

{SOURCE  POINTER 

NVDPT  : 

c 

{DESTINATION  POINTER 

M^.CNT: 

0 

{COUNTER 

mvbpt: 

c 

{RETURN  AODRS 

M/BYT  : 

LOA 

1 ,0,3 

{MAX  BYTES 

INC 

3,3 

ST  A 

O.MVOPT 

{DESTINATION  POINTER 

SM 

l.MVCNT 

{MAX  COUNT 

S'^A 

2,NVSPT 

{SOURCE  POINTER 

ST  A 

3,MVBRT 

{RETURN  AODRS 

M^BYA  : 

LOA 

2,MV5PT 

{GET  SOURCE  POINTER 

IS2 

MVSPT 

JSR 

GTBYT 

{GET  THE  BYTE 

LOA 

2,MVDPT 

{GET  DESTINATION  POINTER 

1S2 

MVDPT 

MOV  » 

0.0, SNR 

{SKIP  IF  NOT  NUL 

JMP  3 

MVBRT 

{RETURN 

JSR 

STBYT 

{STORE  THE  BYTE 

DSZ 

MVCNT 

{SKIP  IF  MAX  COUNT 

JMP 

MVBYA 

{LOOP  BACK 

jMp  a 

MVBRT 

(RETURN 

fyspn: 

STA 

3,FMRTN 

{STORE  RETURN 

LOA 

3,FMSPP 

{SP  TABLE  pointer 

MOV 

0,1 

{MOV  LS  WORD 

SJB 

0,0 

{CLEAR  MS  WORD 

JMP 

.♦3 

FiOPN: 

STA 

3,FMRTN 

{STORE  RETURN 

LOA 

3,FMDPP 

{DP  TABLE  POINTER 

STA 

3,FMTBP 

{HOLD  the  pointer 

STA 

2,FMBPT 

{HOLD  BYTE  POINTER 

STA 

1,FMSTR+1 

STA 

O.FMSTR 

{HOLD  DP  n 

SUB 

0,0 

{CLEAR  ACO 

STA 

0, FMSUP 

{RESET  ZERO  SUPPRESSION  FLAG 

FljPO: 

LOA  a 

2,FMTBP 

{POWER  TABLE  ENTRY 

COM  M 

2,2,SZR 

{SKIP  IF  EOT 

jMP 

.♦3 

LOA 

2,FMBPT 

{RETRIEVE  BYTE  POINTER 

JMP  a 

FMRTN 

{RETURN 

ISZ 

F^TBP 

{INC  POINTER 

lo A a 

3,FMTBP 

(POWER  TABLE  ENTRY 

ISZ 

FMTBP 

{INC  POINTER 

M'JVR  » 

3, 3, SNR 

{SKIP  IF  NOT  last  ENTRY 

ISZ 

FMSUP 

{SET  SUPPRESSION  FLAG 
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F'IRTN: 

F'nBP: 

fmbpt: 

F-ISUP: 

F'UNt: 

fistr: 

F'ISPP: 

FiDPP: 


S’JB 

0,0 

TCLEAR  ACO 

ST  A 

O.FMCNT 

IRESET  COUNT 

LD  A 

OrFMSTR 

IRE'^RIEVE  DP  H 

LO  A 

1 ,FMSTR  + 1 

SJ6Z 

3,l,5NC 

fPERFORM  DP  SUBTRACT 

ADC 

2,0,5KP 

SUB 

2,0 

MavL  # 

0,0, SZC 

;SRIP  IF  NO  OVERFLOW 

p 

.♦3 

ISZ 

FMCNT 

;1NC  DIGIT  COUNT 

JMP 

.-6 

ADDZ 

3,1, SZC 

TPOSITIVE 

I\C 

0,0 

ADD 

2,0 

ST  A 

0,FMSTR 

;hcld  the  remainder 

ST  A 

1 ,FMSTR+1 

LDA 

0,ASC  10 

;<o> 

LDA 

1 , FMCNT 

IDIGIT  COUNT 

MOV  n 

1,1, SZR 

;SKIP  IF  NO  COUNT 

ISZ 

FMSUP 

;SET  SUPPRESSION  FLAG 

ADD 

1 ,0 

;ADD  count  to  BASE 

LDA 

1 ,FMSUP 

;SUPPRESSIDN  flag 

MOV  # 

1 , 1 , SNR 

fSKlP  IF  NO  SUPPRESSION 

LDA 

0,ASCIB 

;<  > 

LDA 

2,FMBPT 

tbyte  POINTER 

ISZ 

FMBPT 

;iNC  the  pointer 

JSR 

STBYT 

;STORE  THE  BYTE 

JMP 

FMJPO 

;loop  back 

0 

TRETURN  AOORS 

0 

;POWER  OF  TEN  TABLE  POINTER 

0 

TBYTE  POINTER 

0 

TSUPPRESSION  FLAG 

0 

TDIGIT  COUNT 

0 

0 

.♦K 

TOP  A STORAGE 

TSTART  OF  SP  TABLE 

.+  1 

TSTART  OF  OP  TABLE 

035632 

145000 

T10SS9 

C02765 

100400 

TIO^^B 

CQ0230 

113200 

T10**7 

000017 

041100 

ilO’OOb 

LOOOOl 

103240 

T 1 0'»»5 

OCOOOO 

023420 

T 10‘>«'4 

000000 

001750 

T lO**! 

oocooo 

000144 

510**2 

000000 

000012 

TlO*»l 

UOOOOO 

COOOOl 

510**0 

177777 

TEOT 
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ROBLK: 

ST  A 

3iUSP  ;STORE  RETURN 

LDA 

O.BLKHK  ;6L0CK  HASK 

LDA 

1,1,3  ICURRENT  BLOCK 

LOA 

2,2,3  JSUE  t CH  # 

ANOS 

2,0  fGET  SIZE 

AOO 

1,0  ;A00  to  CURRENT  BLOCK 

5TA 

0,1,3  ;update  current  block 

LDA 

0,0,3  IBUFFER  POINTER 

LDA 

3,3,3  {EOF  ADDRS 

ST  A 

.SYSTM 

3,EFRTN  {EOF  RETURN 

.ROB 

77  {READ  THE  BLOCK 

JMP 

.♦2 

JMP 

4,3  {RETURN 

LOA 

1,E0FCD  {EOF  CQOE 

SUB  n 

1,2,SZR  {SKIP  IF  EOF 

JSR  a 

SYSE2  {SYSTEH  ERROR  ' 

jHP  a 

EFRTN  {EOF  RETURN 

TMPRT: 

0 

{RETURN  ADDRS 

T'IPIN: 

LOA 

0,0,3  {EOF  RETURN 

INC 

3,3 

ST  A 

3,THPRT  {RETURN  ADDRS 

ST  A 

0,  . + 5 

JSR 

ROBLK  {READ  A BLOCK 

MTABl  : 

BurFR  {BUFFER  POINTER 

0 {BLOCK  « 

B0ACL*400+03 

0 {EOF  RETURN 

JHP  a 

THPRT 

BlKPk: 

177400 

{BLOCK  SIZE  MASK 

E3FCD: 

06 

{EOF  CODE 

E F R T N : 

0 

{EOF  RETURN 

E3FMK1 

000400 

{EOF  HASK 

SYSE2: 

SYSER 

{SYSTEH  ERROR 

rdcmd: 

00000Q»eDAC9  ;FF  READ  COHMANO 

Hr ain: 

LOA 

0,0,3  {EOF  RETURN 

sta 

0, EFRTN  {STORE  THE  RETURN 

LOA 

O.MTABl  {INPUT  DATA  BUFFER  POINTER 

LDA 

1,RDCMD  {READ  COMHANO 

sta 

.SYSTH 

3,USP  {STORE  RETURN 

.MTOIO 

03  {INPUT  BUFFER  FORM  MAG  TAPE 

JHP 

.*2  {ERROR 

JHP 

1,3  {NORHAL  RETURN 

LOA 

1,E0FHK  {EOF  HASK 

A\0  » 

1,2, SNR  {SKIP  IF  EOF 

JSR  a 

SYSE2  {SYSTEM  ERROR 

JHP  a 

EFRTN  {EOF  RETURN 

U’MTa: 

LOA 

0,0,3  {NAME  POINTER 

LDA 

2,1,3  {CH  » 

sue 

1,1  {DEFAULT  CHARACTERISTICS 

sr  A 

•SYSTH 

3,USP  {STORE  RETURN 
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.MTOPD 

77  ;OPEN  THE  CHANNEL 

JSR  •) 

SYSE2  TSYSTEM  ERROR 

JMP 

2,3  TNORMAL  RETURN 

NAMEA* 

.■>2 

.TXT 

/TEMPA.TM/ 

N4MEB= 

.»2 

.TXT' 

/TEMPB.TM/ 

NAHEC* 

.»2 

.T  XT 

/TEMPC  .TM/ 

^\hEO» 

.*2 

.TXT 

/TEMPO  .TM/ 

f.Af'EE^ 

.■■>2 

.TXT 

/MTOI6/ 

NAME  E = 

.*2 

.T  XT 

/MT0;7/ 

NAME&* 

.•‘2 

.■'XT 

/$TT 1/ 

NAMEh= 

.=■2 

.TXT 

/»ttd/ 

NAME  I = 

.'■2 

.■'XT 

/$lpt/ 

NAME  J = 

.=■2 

.T  XT 

/POSTSCRIPT. DA/ 

NAMEK= 

.^■2 

.TXT 

/ASSIONA .DA/ 

NAMEL® 

.‘■2 

.TXT 

/ASSIGNS .DA/ 

NAMEM= 

. > 2 

.TXT 

/ASSIGNC  .DA/ 

AS&eF= 

.<’2 

.T  XT 

/0123A  ABCDEF&HIJKLMN0P»»<15>/ 

m3BBF= 

.‘>2 

.’■XT/01 

2 3‘*5<>73-} 

lOiUlOlOlOlOlOlD  <1S>/ 

LNEBE. 

.<■2 

.TXT 

/D123A5t7d9*  * 123A5  A BC  DE  FGH  IJKLMNOP  *■><  1 5>/ 

p- AC1= 

. * 2 

.TXT 

/<16><1I><11><11>BDACS  ONLINE  PR  I NTOUT < 1 2>< 1 5> / 

hu ADi * 

.•=•2 

.TXT 

/<16><11><11><11>PREAMBLE  L POSTSCRIPT  F I L E S< 1 2>< 1 5> / 

* 
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He  AD3  = 

.*2 

.TXT 

/<16><ll><ll><ll>REOUCeO  MUX  C LSB  0ATA<12><15>/ 

HE AD^= 

.*2 

.TXT 

/ TIMEIUSI  STATE  SIGNAL  MNE MON  I C < 1 2>< 1 b> / 

HE AD5= 

.*2 

.TXT 

/<16><11><11><11>HSB  ASSIGNMENT  C DATA<12><15>/ 

HE  ADo  = 

.■>2 

.TXT 

/ BITA  MNEMONIC  NAME<12><15>/ 

H- AD7= 

. >2 

. r XT/ 

TIME (NS) 

01  02  03  OA  05  06  07  08  09  10  11  12  13  lA  15  16<12><15>/ 

he  AO  8 = 

.‘■■‘2 

.TXT 

/<16><11><1 1X1 ISMETHOO  FILE<12><15>/ 

M )&01  = 

.*2 
.T  XT 

/<12>P0STSCRIPT  FILE  OK?  (Y,N)  / 

PAGE  1 = 

.*2 

.^XT 

/XllXllXllXll  XI  1X1  1X1  1>PAGE00000<1  5>/ 

B'v  L M = 

.*2 

.TXT 

/<15>/ 

B<Lr.«!  = 

.^’2 

.TXT 

/<11X12X15>/ 

nF  = 

.*2 

.TXT 

/<!<•>/ 

ur  BPT  = 

.*2 
.B  LK 
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BOACS 

IINITIAL  HSB  BIT  A 

000T.05 

;CH  A AND  BLOCK  COUNT 

177777 

ICURRENT  BLOCK  A 

b.lPRA* 

. 

.BLK 

0 

900 

BOACF 

;IN1T1AL  MUX  POINT  A 

00CA04 

:CH  A AND  BLOCK  COUNT 

177777 

ICURRENT  BLOCK  A 

B JFRB= 

• 

{BUFFER  FOR  ASSIGNB.DA 

.BLK 

0 

900 

BDAC9 

{INITIAL  LSB  POINT  A 

000<i05 

:CH  A AND  BLOCK  COUNT 

177777 

{CURRENT  BLOCK  A 

BUFRC* 

. 

{BUFFER  FOR  ASSIGNC.DA 

.BLK 

0 

900 

BJFFR* 

• 

{INPUT  DATA  BUFFER 

.BLK 

U 

BDAC9 

.END 

T 
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A- 7.  Overlay  Module  No.  6 — ERMSG.SR 

NAME  BLOCK  NAHE>  ERMSG.SR 

TIME  BLOCK 


.TITL  ERMSG  ;JCI  10  MAR  76 
.TXTM  I 
.ENT  0VST6 

.EXTO  OVRTN  RECOV  ERRTN  ERCQD 
.NREL 


BTMSk:  377  TBYTE  MASK 

PHSNO:  MSGOO+10 

0VST6:  LDA  OiERCOO  (ERROR  CODE 

MOV  H 0.0. SNR  (SKIP  IF  ERROR  CONDITION 
JMP  NORML  (NORMAL  EXIT 

COM  • O.OtSNR  (SKIP  IF  NOT  SYSTEM  ERROR 
JMP  SYSTM  (ABNORMAL  EXIT 

SMSG:  ADC  1.1  (FORCE  A -1 

STA  l.ERCOO  (RESET  THE  CODE 

LDA  1. BTMSK  (BYTE  MASK 

AND  0.1  (ERROR  R 

SUBS  1.0  (PHASE  » 

LDA  9 2. PHSNO  (WORD  IN  PHASE  MASSAGE 

ADO  0.2  (ADD  IN  OFFSET 

STA  3 2. PHSNO  (RESTORE  THE  WORD 

LDA  2.TBLPT  (TABLE  OF  POINTERS 

ADD  0,2  (ADD  IN  PHASE  0 OFFSET 

LDA  2,0,2  (GET  THE  POINTER 

ADD  1,2  (ADD  IN  ERROR  R OFFSET 

LDA  2,0,2  (MESSAGE  POINTER 

MOVZL  2,2  (MOVE  REC.  BIT  TO  CARRY,  FORM  BYTE  POINTER 

SUBCL  1,1  (MOV  CARRY  TO  IBIS 

STA  l.ERCOO  (HOLD  RECOVERABLE  ERROR  CODE 

STA  2, MSG  (STORE  THE  POINTER 

JSR  TYPMG  (TYPE  THE  MESSAGE 

MSG00*2 

> JSR  TYPMG  (TYPE  THE  MESSAGE 

i MjG:  0 

, OSZ  ERCOD  (SKIP  IF  RECOVERABLE  ERROR 

1 JMP  .+2 

I JMP  3 RECOV  (RETURN  TO  ROOT  BINARY 

I NIRML:  sub  1,1, SKP  (SET  FLAG  0 

I SYSTM:  ADC  1,1  (SET  FLAG  -I 

I .SYSTM 

I .RESET  (RESET  ALL  I/O  CHANNELS 
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.SYSTM 
• RISE 

;RELEASE  MTO 

JHP 

.♦1 

lIGNQRE  ERRORS 

LOA 

2,RECQV 

{RETRIEVE  ERROR  CODE 

MOV  A 

1,1>S2R 

ISKIP  IF  NORMAL  EXIT 

JMP 

.SYSTM 
• RTN 

.♦A 

{NORMAL  RETURN  TO  CLI 

HALT 

.SYSTM 

.ERTN 

halt 

{ERROR  RETURN  TO  CLI 

rvPMG: 

LOA 

0,0,3 

{GET  BYTE  POINTER 

SJBZL 

2,2 

{FORCE  Hi  FOR  CH« 

SI  A 

3,USP 

{STORE  RETURN  ADDRESS 

.5 YSTM 
.WRL 

77 

{WRITE  A LINE 

JMP  3 

ERRTN 

{ERROR  RETURN 

JMP 

1,3 

{NORMAL  RETURN 

mtanm: 

.♦1*2 

.TXT 

/MTO/ 

{MTO  NAME  POINTER 

T3LPT: 

{START  OF  POINTERS 

PHASl: 


PHAS2: 


PH AS3: 


PHASl 

PMAS2 

PHAS3 

PHASA 

PHAS5 


MS&n 
MSG12 
MS&13 
MSGl  A 
HSG15 
MSGlb 
MSG17 
MSG18 
HSG19 
MSHIO 
MSHll 
MSH12 
M5G99 


HSG21 

HSG22+1BO 

MSG23 

MSG2A 

MSG99 


KSG23 

MSG99 


;POINTER  TO  START  OF  PHASl  ERRORS 


TPDINTER  TO  START  OF  PHAS2  ERRORS 


;P01NTER  TO  start  OF  PHAS3  ERRORS 
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PHAS^.: 


PHAS5; 

MG  000  = 

HiOl  1 = 
MS&12= 
MSCl 3= 
MSG14= 
MS015= 
M5&16= 
MS  01 7 = 
MSG1£= 
'1SG19  = 
MSH10= 
MSh 1 1= 
«SH12= 

Mi02l= 

MjG22= 

MS023= 

MSG2A= 

MSGAl  = 
MS0A2= 
\3CA3= 


;PDINTER  TO  START  OF  PHASA  ERRORS 

MSOAl 

MSOAl 

MS&A2 

MS&A3 

MS099 

. ;PCINTER  TO  START  OF  PHAS5  ERRORS 

MS&51 

MS&92 

MSG53*1B0 

M5.&5A 

hS099 

.TXT  /<12>ERR0R  IN  PHASE  0<15>/ 

•TXT  /MONITOR  POINT  UNOERF LOW < 1 5>/ 

.’XT  /MONITOR  POINT  DV E R FL ON < 1 5> / 

.TXT  /OUTPUT  CONTROL  TABLE  OV ER F L0W<1 5 > / 

.TXT  /OUTPUT  LIST  NOT  IN  SEQUENTIAL  0RDER<15>/ 

.TXT  /OUTPUT  LIST  DELTA  TIME  0 VER FL0W< 1 5> / 

.TXT  /CONTROL  POINT  UNDE RF LO W< 1 5 > / 

.IXT  /control  list  0VERFL0W<15>/ 

.TXT  /SP-DP  0VERFL0W<15>/ 

.TXT  /EOL,  NO  NUMBER  F0UND<15>/ 

.TXT  /SAMPLE  RATE  OUT  OF  B0UN0S<15>/ 

.TXT  /LOW  SPEED  BUFFER  MONITOR  POINT  OUT  OF  30UNDS<15>/ 

.TXT  /HS  BUFFER  SAMPLE  RATE  OUT  OF  B0UNDS<15>/ 

.TXT  /DISK  ERR0R<15>/ 

.TXT  /DISK  0VERFLaw<15>/ 

.TXT  /MULTIPLEXER  ERR0R<15>/ 

.rXT  /INPUT  BUFFER  CVERRUN<1S>/ 

.TXT  /CURRENT  TIME  0 V E RF LD W< 1 5>/ 

.TXT  /major  sequence  slip  0CCURRED<15>/ 

.TXT  /-AX  SEQUENCE  ERROR  COUNT  E XC E E D E D < 1 S > / 
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HSG51= 

.TXT 

/ASSIGN 

FILE  READ  ERROR 

DCCURRE0<15>/ 

MS&52= 

!txt 

/ASSIGN 

FILE  SEQUENCE  ERROR  OCCURRE 0< 1 5> / 

MS&53= 

• 

.TXT 

/LINE  COUNT  ERROR<15>/ 

MSG5<.= 

.TXT 

/HUX  OR 

LSB  POINT  « OUT 

OF  eOUNOS<I5>/ 

MSG99= 

.TXT 

/UNKNOWN 

£RR0R<15>/ 

.END 
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GO 

i 

< 

BDACS 

System 

Parameters — BDACS . SR 

NAME 

BLOCK 

NAME  = 

BDACS  .5R 

TI  ME 

SLOCK 

.TITL  B0AC5  ;JC1  19  FEB  76 


N0P  = 

OOOAOl 

;nodp  (JMP  .♦!) 

CLK  = 

05A 

;RTC  DEVICE  CODE  (HAROWAREI 

MJX  = 

032 

;MUX  interface  DEVICE  CODE  (HARDWARE) 

MJXOB= 

300 

;MUX  output  buffer  ADDRESS  (HARDWARE) 

1MCLK= 

OOOOOA 

;CLK  INTERRUPT  MASK  BIT 

HMUX  = 

001000 

;MUX  interrupt  MASK  BIT 

HDKP  = 

OOOAOO 

;DKP  interrupt  MASK  BIT 

BDACA= 

200 

JMUX  INPUT  SIZE 

BDACB= 

100 

;MUX  OUTPUT  SIZE 

BDACD= 

lAA 

ISTARTING  CYLINDER  « FDR  RAW  DATA  STORE 

BDACE= 

UA 

;MAX  0 OF  CYLINDERS  USED 

B0ACF= 

1 

;min  mux  input  point  « 

BO ACG= 

20  0 

;max  mux  input  point  # 

B0ACH= 

AOl 

;min  mux  output  point  n 

BOAC  1 = 

A76 

;max  mux  output  point  w 

BDAC J= 

200 

;max  n output  point  changes 

BDACK= 

03 

jlength  of  entry  in  output  control  list 

BO ACL= 

03 

ILENGTH  of  entry  in  REDUCED  DATA  BUFFER 

BO ACM= 

6000 

ILENGTH  OF  MUX  DATA  BLOCK 

BOACN= 

lAA 

;MAX  ALLOWABLE  SEOUENCE  ERRORS 

BDACO= 

AOOO 

;hs  buffer  size 

B0ACP= 

200 

;ls  buffer  size 

BOACO^ 

1 

;min  lsb  point  u 

BOACR= 

200 

;max  lsb  point  « 

BDACS= 

1 

;min  hsb  bit  n 

BOACT* 

20 

;max  hsb  bit  n 

BOACU= 

60 

:min  mux  sample  rate 

B0ACV= 

7777 

;max  mux  sample  rate 

BDACM^ 

76  A 

;min  hsb  sample  rate 

BOACX= 

23A20 

;max  hsb  sample  rate 

BOAC  1 = 

80ACA/20 

m INPUT  WORDS 

B0AC2= 

BOACB/20 

;«  OUTPUT  WORDS 

B0AC3= 

BDACP/20 

;n  LS  BUFFER  WORDS 

BOAC5= 

BOAC  J'>BDACL 

fLENGTH  OF  OUTPUT  LIST  BUFFER 

B0AC6= 

BDACl ♦BOACl 

;D  I SPLACEMENT  FOR  LPT  MASKS 

B0AC7= 

BOAC 1-1 

;«  OF  LS  WORDS 

BDAC8= 

BDACM/2 

;«  OF  HS/LS  PAIRS  PER  MUX  BUFFER 

B0AC9= 

BOACL^AOO 

IREDUCED  DATA  BUFFER  SIZE 

END  BLOCK  j 

1 

I 
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